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NUMBER: T002-A 

TITLE: Memory Test - Worst Pattern 

CATEGORY: 160 -A 

MINIMUM EQUIPMENT NEEDED: 160 -A 

PURPOSE 

The memory test creates in memory the pattern of information which will cause the 
memory to be most susceptible to internally generated noise. 

DESCRIPTION 

1. See flow chart. 

2. Noise will be detected by the picking up or dropping bits in a location. 

3. The test does a check sum periodically to determine if the program has picked up 
or dropped bits. 

4. The test uses both banks of memory; one bank for the program, the other bank for 
the worst pattern information. 

The program and worst pattern information alternate between banks. If the program 
is in bank the worst pattern information is in bank 1. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 
LOADING ADDRESS: 0000 
TERMINAL ADDRESS: 0162 
CHECKSUM: 0001 

STARTING ADDRESS: 0000 

HALTS EXPLANATION 

0000 Check sum error at 0160. 

7700 Incorrect data in A at 0052. 

7707 Optional stop after one pass at 0031. 

7777 Address of incorrect data in A at 0054. 

The program will stop if any error occurs. Check with the coding 
sheet to locate cause of error. With any SLS switch ON, the program 
will stop each time the worst pattern has been written in memory. 
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Return jump \ 
to check \ 

sum subroutine 

0000-0001 



ae J 



<D 



CD- 



Memory bank 
selection to A 

0132 



Form 006 (xx4 + xxO) 
instruction and 
store forward 

0133-0135 



Shift the direct and 
indirect to the current 
rel. bk. selection 

0136 



Restore modified- 

prognam address 

to zero 

0137-0146 



O 

> 
CO 



Subtract return jump 

entrance address + 1 

from the sum 

0154-156 



No 



Sum 
Completed 



Check for 

Jump on 77 

0153 



Update the 
addend address 
and subtract 163 

0151-0152 



Yes 



Form the sum of the 
contents of'addresees 

0000-0152 

0147-150 



Not all 163 addresses 



have been added 



Check for 

A = 

Jump on 

0157 



Check sum 
is correct 

Yes 



No 



Incorrect 
check sum 




Jump forward indirect 
to address 0002 if this 
is the first bank to be 
checked 

0130-0131 



<D 



Jump forward indirect to 
address 0104 if this is the 
-» second bank to be checked 



0130-0131 



o 



This part of the program forms a check sum 
of 0000 by taking the sum of the program 
contents (addresses 0000-0162) and subtract- 
ing the jump entrance address plus one from 
this sum. In this manner, a check is made 
to see if the program has been modified. 



d> 



Memory bank 
selection to A 

0002 



Form 002(xxl+ xxO) 
instruction and store 
it forward 

0003-0005 



Shift the indirect bank 
opposite of the rela- 
tive and direct banks 

00006 



Update the 

storage 

address 

0015 



Store 0000 or 7777 in 
locations in the indirect 
bank 

0013-0014 



Check for 
A = 
0016 
Jump on zero 



No 



7776 

locations 

filled 



o 

i 

> 



Yes 



Not all 
locations 
have been 
filled 



Shift the pattern for 
every IO3 location 
and every 100s location 

0017-0026 



Set address 
0077 to 0000 

0011-0012 



Set address 

0076 to 0000 

or 7777 

0007-0010 



© 



Store 0000 or 
7777 in location 
7777 

0027-0030 



jptionar> 

Stop 
(7707) 

0031 



<D 



This shifts the indirect bank selection 
opposite of the current relative and 
direct bank selection. It than lays a 
pattern of alternate 0000's and 7777's 
in the indirect bank. The pattern 
changes every 10„ and every 100„ 



locations . 



8 



£> 



This checks the pattern that has just 
been layed out for errors, and halts 
with the A register containing incorrect 
data. Upon hitting the run switch, the 
computer will halt with the A register 
containing the address of the incorrect 
data. Hit run again to continue checking. 



Set address 
0077 to 0000 

0032-0033 



Compare indirect bank 
contents against proper 
number by logic sum 

0034-0035 



Check for 
A * 
0040 _ 
Jump on 



No error 



Shift the check number 
to correspond to the 
pattern of the indirect 
bank 

0041-0050 



No 



Have not 
checked all 
locations 



Check for 
A = 
0040 
Jump on 



Yes 

All locations 
have been 
checked 



No 



Update the 
address to 
be checked 

0037 



Yes 



Error 



Load A register 
with incorrect 
data 

0051 








Load A register with 
address of incorrect 
data 

0053 



Jump forward indirect 
to address 0037 to 
continue checking the 
pattern 

0055-0056 




o 



Load A register 
with the contents 
of address 0076 

0100 



Check for 

A * ° 
Jump on 7J 

0101 




Yes 



Pattern has 
been reversed 
and checked 
No 



Go back and 
reverse pattern 
and check 



Return jump' 
to check sum ' 
subroutine 

0102-0103 



<D 



This changes the beginning pattern number from 0000 to 7777, 
and jumps back to lay out a pattern in the indirect bank that is 
the complement of the first pattern. Upon completing this and 
checking it, the program makes a return jump from address 
0103 into the check sum subroutine. 



d> 



o 
I 

> 



Restore address 0077 to 
zero, and do a memory 
bank selection to A 

0104-0105 



Form 002(xxl + xxO) 
instruction and store 
it forward 

0106-0110 



Form 002(xx0 + xxl) 
instruction and st ore 
it forward 

0111 0112 



Store indirect 
the contents of 
0000-0162 

0116 



Shift the indirect bank 
selection opposite of the 
relative and direct bank 
selection 

0115 



Load A register 
with contents 
of 0000-0162 

0114 



Shift the indirect bank 
to the current relative 
and direct bank selection 

0113 
A 



Update the address loca- 
tion, and check to see if 
all 163 locations are 
transferred 

0117-0120 




Check for 

A 4 

Jump onTJ 

0121 



Yes 



Not all 163 locations 
have been transferred 



163 locations have 
been transferred 



Transfer the program into 
the other bank and begin at 
address 0000. This will 
check the bank the program 
was just transferred from. 



No 



Memory bank 
selection to A 

0122 



Form 001(xx0 + xxl) 
instruction and store 
it forward 

0123-0125 



Load A register 
with 0000 

0126 




The program will 
now be operating In 
the opposite bank 



Shift relative bank 
selection to opposite 
bank A-»P=0000 

0127 



160-A MEMORY TEST 



0000 


7100 


Enter check sum subroutira 


0001 


0131 


Location check sum subrou - 


0002 


0130 




0003 


0207 


Select indirect selection 


OOOJ* 


0321 


to opposite memory bank 


0005 


1*201 


of module 


0006 


(002X) 




0007 


01*00 




0010 


1*076 


Set initial data 


0011 


01*00 


Set starting address 


0012 


1*077 




0013 


2076 




ooil* 


10.77 




001^ 


51*77 




0016 


6011 


Finished setting pattern 


0017 


0277 




0020 


6003 




0021 
0022 


0207 
61*07 




0023 


21*76 




0021* 


1*076 




0025 


7101 




0026 


0013 




0027 


21*76 




0030 


1*151* 




0031 


7707 


Optional stop 


0032 


01*00 




0033 


1*077 




0031* 


2076 




0035 


1577 




0036 


6113 


Error detected 


0037 


51*77 




00l*0 


601*0 


Pattern checked: See if ' 


001*1 


0277 




001*2 


6003 




00l*3 


0207 




ool*l* 


61*10 




ooi*5 


21*76 




00i*6 


1*076 




00l*7 


7101 
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l60«A MEMORY TEST 



0050 003h 

00£L 2177 

0052 7700 Error stop. Bit data in A 

0053 2077 

005>li 7777 Di S pi a y address of location that failed 

0055 7101 Test next location 

0056 0037 

0057 0037 

0060 0000 

0061 0000 

0062 0000 

0063 0000 
006l 0000 

0065 0000 

0066 0000 

0067 0000 

0070 0000 

0071 0000 

0072 0000 

0073 0000 

007ii 1311 Check sum constant 

0075 0163 Final address 

0076 0000 Data 

0077 0077 Current address 

0100 2it76 

0101 6571 lay down complement worst pattern 

0102 7100 Enter check sum subroutine 

0103 0131 Location of check sum subroutine 
Oiol 1*077 Reset initial address 

0105 0130 

0106 0207 

0107 0320 Set bank selection up to transfer 

0110 ii203 program to other bank 

0111 0301 

0112 U203 

0113 (002X) 
OlUj 2177 

0115 (002X) Transfer program to other 

0116 liX77 bank 

0117 5177 
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160-A MEMORY TEST 



0120 


31*75 


0121 


6506 


0122 


0130 


0123 


0207 


0121* 


0311 


0125 


1x202 


0126 


OltOO 


0127 


(001)0 


0130 


7101 


0131 


(xxxx) 


0132 


0130 


0133 


0207 


013U 


0360 


0135 


1*201 


0136 


(006X) 


0137 


01*00 


011(0 


1*006 


Oliil 


1*326 


011*2 


1*325 


011*3 


1*311* 


011*1* 


1*306 


0116 


1*300 


0ll*6 


1*077 


011i7 


2177 


0150 


5300 


oi<i 


51t77 


0152 


31*75 


oi53 


6501* 


oi5fc 


2723 


0155 


5300 


0156 


0701 


0157 


6L27 


0160 


0000 


0161 


7101 


0162 


0160 


0163 


0000 


bi6i* 


0000 


0165 


0000 


0166 


0000 


0167 


0000 



Repeat program in other bank 
Check siM entrance 



Set all bank selections to relative bank 



Clear all locations 
Modified by program 



Clear previous check stim 
Set initial address 



Form check sum in location 07777 

Substract exit address from check sum 

Exit if check sum if OK 

Check sum error 

Han^ up on check sum error 
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NUMBER: 

TITLE: 

CATEGORY: 



T034-A 
Logic Test 
160-A 



MINIMUM EQUIPMENT NEEDED: 160-A 

PURPOSE 

This program will test the instructions not checked by Input/Output tests, Buffer tests, 
and Memory bank selection tests. 



1. See flow chart. 



DESCRIPTION 



OPERATING INSTRUCTIONS 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 
STARTING ADDRESS: 



Paper Tape 

0000 

3772 

016.0 

0000 in bank 



Spares located from 2100 to 3500 



HALTS 

3677 through 3702 



P = 3705, Z = 7777, 
A = 0000 



EXPLANATION 

Memory locations containing selective stops. With any selective 
stop up, the program will run approximately 30 seconds and stop 
at the appropriate selective stop. 

If no selective stop or selective jump switches are up, the pro- 
gram running time will be determined by the count in memory 
location 1375 as follows: 

The complement of the contents of memory location 1375 con- 
verted to decimal and multiplied by 30 seconds determines the 
running time. 



Program stop 

Memory Location 



1375 - Running time 
7776 - 30 seconds 
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HALTS 



EXPLANATION (Cont'd. ) 

7767 - 4 minutes 

0000 - 34 hours, 15 minutes 

Running time may also be controlled with (SLJ) selective jump 
switches. 







Switch 


Position 


P 


rogram Run time 






SLJ1 


UP 




1 minute 






SLJ2 only 


UP 




2 minutes 






SLJ4 only 


UP 




4 minutes 


P = 3705, Z = 
A = 0000 


= 7777 


Program stop 


, * . . . M.I 


1 





If an error occurs in this test, "A" register will display the 
most logical instruction that failed. 

If an error occurs or if a master clear follows a stop other 
than the stops described, it may be necessary to reload the 
program. 
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00000 



2206 
4l6o 
4l6l 
0400 
7101 
0100 
7643 
0000 



Load A with content of 0005 -761i3(A) 

Store Content of A in location 7777 which is stored at 0060 

Store A at location 30OU 

Load A with 0000 

Jump to location 0100 



00010 



0000 
004l 
0000 
0000 
0000 
0000 
0000 
0000 



00020 



0000 
0000 
0000 
0000 
0000 
3724 
0000 
0000 



00030 



00040 



0000 
0000 
0000 
0000 
0000 
0000 
0530 
0667 

4062 
5^73 

5473 

7643 
1171 
5624 
1230 

0000 



00050 



1303 
1355 
7070 

1375 

0000 
0000 
0000 
0000 
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00060 


7777 

350U 
0000 
0000 
0000 
0000 
0000 
1673 




00070 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 




00100 


6005 


If A - Jump to 0105 




0U60 


Load A with 0060 




0000 


Error Stop 




01*65 


Load A with 0065 




0000 


Error Stop 




6502 


If A / Jump to 0103 




6205 


If A is pos. Jump to 0113 (0 




01*62 


Load A with 0062 


00110 


0000 


Error Stop 




Oi*67 


Load A with 0067 




0000 


Error Stop 




6702 


If A is neg. Jump to 0111 




0577 


Load A with 7700 




6105 


If A is non-zero Jump to 0122 




0l*6l 


Load A with 0061 




0000 


Error Stop 


00120 


01*61* 


Load A with 0061* 




0000 


Error Stop 




61*02 


If A - Jump to 0120 




6305 


If A is neg. Jump to 0130 




01*63 


Load A with OO63 




0000 


Error Stop 




01*66 


Load A with 0066 




0000 


Error Stop 


00130 


6602 


If A is pos. Jump to 0126 




0110 


Left shift 3 places 




6303 


If A is neg. Jump to 0135 




01*63 


Load A with OO63 




0000 


Error Stop 




0110 


Left shift 3 places 




6205 


If A is pos. Jump to 011*3 




01*62 


Load A with 0062 



A-0000 



(0 is pos.) 



A-7700 



A-7007 



A-0077 
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001U0 0000 
01*67 
0000 
6702 

ouoo 

6005 

ol*oo 

6003 

00150 ouou 

0000 
2307 

630U 

Ol*23 
0000 

1075 
2301 

00160 3315 
6003 

QU33 
0000 

2706 
3307 

6003 

Oi*27 



Error Stop 

Load A with 0067 

Error Stop 

If A is neg. Jump to 011*1 

Load A with 0000 

If A - Jump to 0152 

Load A with 0000 

If A - Jump to 0152 

Load A with OOOl* 

Error Stop 

Load A with the content of 011*3 

If A is neg. Jump to 0157 

Load A with 0023 

Error Stop 

Load A with the content of 0156 

Add to A the content of 011*3 

If A - Jump to 0161* 

Load A with 0033 

Error Stop 

Load A with complement of content of Loc. 0156 

Add content of Loc. 0156 to content of A 

If A - Jump to 0171 

Load A with 0027 



A-0077 

A-0000 



A-6702 

A-1075 
A-0000 



A-6702 
A-0000 



00170 0000 Error Stop 

2313 Load A with the content of 0156 

371U Subtract cont. of 0156 from A 

6OO3 If A - Jump to 0176 

Ol»37 Load A with 0037 

0000 Error Stop 

2320 Load A with content of 0156 

1*035 Store content of A at Loc. 0035 

00200 3U35 Subtr. cont. of 0035 from A 

6003 If A - Jump to 0201* 

0l*3l* Load A with 0031* 

0000 Error Stop 

2313 Load A with cont. of 0171 

0102 Left shift 1 

6303 If A is neg. Jump to 0211 

01*01 Load A with 0001 



A-1075 
A-0000 



A-1075 
A-1075 

A-0000 



A-2313 
A-l*626 



00210 0000 
0102 
6203 
0l*01 
0000 
0102 
6203 
OI4OI 



Error Stop 

Left shift 1 

If A is pos. Jump to 0215 

Load A with 0001 

Error Stop 

Left shift 1 

If A is pos. Jump to 0221 

Load A with 0001 



Af1U55 



A-3132 
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00220 0000 
0102 
6303 
OUOl 
0000 
0102 
6303 
0I4OI 

00230 0000 
0102 
6203 

0U01 

0000 
0102 

6203 
0U01 

002itO 0000 
0102 
6303 

0U01 

0000 
0102 

6203 
0U01 

00250 0000 

0102 

6303 

0U01 

0000 
0102 

6303 

0U01 
00260 0000 

0102 

620U 
0U01 

0000 

0U0U 
2301 

0110 
00270 6303 

0U01 

0000 
0110 

6203 
0U01 

0000 
0110 



Error Stop 

Left shift 1 

If A Is neg. Jump to 0225 

Load A with 0001 

Error Stop 

Left shift 1 

If A Is neg. Jump to 0231 

Load A with 0001 

Error Stop 

Left shift 1 

If A is pos. Jump to 0235 

Load A with 0001 

Error Stop 

Left shift 1 

If A is pos. Jump to 02U1 

Load A with 0001 

Error Stop 

Left shift 1 

If A is neg. Jump to 02U5 

Load A with 0001 

Error Stop 

Left shift 1 

If A is pos. Jump to 0251 

Load A with 0001 

Error Stop 

Left shift 1 

If A is neg. Jump to 0255 

Load A with 0001 

Error Stop 

Left shift 1 

If A is neg. Jump to 0261 

Load A with 0001 

Error Stop 

Left shift 1 

If A is pos* Jump to 0266 

Load A with 0001 

Error Stop 

Load A with cont. of 0265 
Left Shift 3 

If A is neg. Jump to 0273 

Load A with 0001 

Error Stop 

Left shift 3 

If A is pos. Jump to 0277 

Load A with 0001 

Error Stop 

Left shift 3 



A-626U 



A-U551 



A-1323 



A-26U6 



A-551U 



A-3231 



A-6U62 



A-51U5 



A-2313 



A-0U0U 

A-UOUO 



A-0U0U 



A-U0U0 
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00300 


6303 


If A is neg. Jump to 0303 




oUoi 


Load A with 0001 






0000 


Error Stop 






0110 


Left Shift 3 






6203 


If A is pos. Jump 


to 0107 




0401 


Load A with 0001 






0000 


Error Stop 






2303 


Load in A the content of 0301* 


00310 


1301 


Log. prod of A and contents of 0307 




6203 


If A is pos. Jump to 0?llj 




0>H3 


Load A with 0013 






0000 


Error Stop 


' 




0102 


Left Shift 1 






6303 


If A is neg. Jump 


to 0320 




0413 


Load A with 0013 






0000 


Error Stop 




00320 


0102 


Left Shift 1 






6203 


If A is pos. Jump to O32J4 




0*H3 


Load A with 0013 






0000 


Error Stop 






0102 


Left Shift 1 






6203 


If A is pos. Jump to 0330 




0U13 


Load A with 0013 






0000 


Error Stop 




00330 


0102 


Left Shift 1 






6303 


If A is neg. Jump 


to 013l| 




0413 


Load A with 0013 






0000 


Error Stop 






0102 


Left Shift 1 






5203 


If A is pos. Jump 


to 03 kO 




0U13 


Load A with 0013 






0000 


Error Stop 




003^0 


0102 


Left Shift 1 






0203 


If A is pos. Jump 


to 0?lilt 




0413 


Load A with 0013 






0000 


Error Stop 






0102 


Left Shift 1 






6203 


If A is pos. Jump to 0350 




0413 


Load A with 0013 






0000 


Error Stop 




00350 


0102 


Left Shift 1 






6203 


If A is pos. Jump 


to 0351* 




01+13 


Load A with 0013 






0000 


Error Stop 






0102 


Left Shift 1 






6203 


If A is pos. Jump to O36O 




0413 


Load A with 0013 






0000 


Error Stoo 





A-OliOU 

A-6203 
A-2203 

A-W+06 

A-1015 
A-2032 

A-U06U 

A-0151 
A-0322 

A-06Ui 

A-1510 

A-3220 
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00360 0102 
6303 

o4i3 

0000 
0102 
6303 
01*13 
0000 

00370 2307 
1764 
6303 

0417 
0000 
0102 
6303 
0417 

oo4oo 0000 

0102 

6203 
0417 
0000 
0102 

6303 
0417 

00410 0000 
0102 

6303 
0417 
0000 
0102 

6303 
0417 

00420 0000 
0102 
6203 
0417 
0000 
0102 

6203 
0417 

00430 0000 

0102 
6203 
0417 
0000 
0102 
6203 
0417 



Left Shift 1 

If A is neg. Jump to 036b 

Load A with 0013 

Error Stop 

Left Shift 1 

If A is neg. Jump to 0370 

Load A with 0013 

Error Stop 

Load A with content of O36I 

Logical sura of A and content of 0305 

If A is neg. Jump to 0175 

Load A with 0017 

Error Stop 

Left Shift 1 

If A is neg. Jump to OljOl 

Load A with 0017 

Error Stop 

Left Shift 1 

If A is pos. Jump to OijO)? 

Load A with 0017 

Error Stop 

Left Shift 1 

If A is neg. Jump to Oljll 

Load A with 0017 

Error Stop 

Left Shift 1 

If A is neg. Jump to 0ljl5 

Load A with 0017 

Error Stop 

Left Shift 1 

If A is neg. jump to 0lj21 

Load A with 0017 

Error Stop 

Left Shift 1 

If A is pos. Jump to 01+25 

Load A with 0017 

Error Stop 

Left Shift 1 

If A is pos. Jump to 01*31 

Load A with 0017 

Error Stop 

Left Shift 1 

If A is pos. Jump to 01*3 5 

Load A with 0017 

Error Stop 

Left Shift 1 

If A is pos. Jump to Okhl 

Load A with 0017 



A-6U1O 



A-5101 



A-6303 
A-6'702 



A-5605 



A-31413 



A- 7026 



A-6055 



A«U33 



A-0267 



A-0556 



A-133U 



A-2670 



160-A:16 



oo44o 0000 

0102 

6303 
0U17 
0000 
0102 
6201+ 
0417 

00450 0000 

5252 
2701 
6203 

0^27 
0000 
0102 
6303 

00460 0427 
0000 
0102 
6203 
0427 
0000 
0102 
6303 

00*170 0427 
0000 
0102 
6203 
0427 
0000 
0102 
6303 

00500 0427 
0000 
0102 
6203 
0427 
0000 
0102 
6303 

00510 0427 
0000 
0102 
6203 
0427 
0000 
0102 
6303 



Error Stop 

Left Shift 1 A-5560 

If A is neg. Jump to OU45 

Load A with 0017 

Error Stop 

Left Shift 1 A-3310. 

If A is pos. Jump to 0U52 

Load A with 0017 

Error Stop 

Load complement of content 0l*5l A-2525 

If A is pos. Jump to OU56 

Load A with 0027 (0446) cont. during 46 instr. check 

Error Stop 

Left Shift 1 A-5252 

If A is neg. Jump to 0462 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-2525 

If A is pos. Jump to 01*66 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-5252 

If A is neg. Jump to Ol*72 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-2525 

If A is pos. Jump to 0476 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-5252 

If A is neg. Jump to 0502 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 ' A-2525 

If A is pos. Jump to OJ>06 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-5252 

If A is neg. Jump to 0512 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-2525 

If A is pos. Jump to 0516 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 A-5252 

If A is neg. Jump to 0522 



160-A:17 



00520 0427 
0000 
0102 
6203 
0427 
0000 
0102 
6303 

00530 0427 
0000 
04o4 
0704 

6003 

0407 
0000 

7101 
00540 0563 

2211 
4366 
2301 
0704 
4303 
3607 
6506 

00550 4604 
6576 
0446 
0000 

5252 

4306 

0427 
0530 

00560 0450 

0563 
O566 
2301 
4324 
6524 

2305 
4327 

00570 2312 
4136 
2036 
0704 
4036 

1715 
6506 
2320 



Load A with 0027 (0446) 

Error Stop 

Left Shift 1 

If A is pos. Jump to 05" 26 

Load A with 0027 (0446) 

Error Stop 

Left Shift 1 

If A is neg. Jump to 0532 

Load A with 0027 (0446) 

Error Stop 

Load A with 0004 

Subtr. 0004 from content of A 

If A-0 Jump to 0537 

Load A with 0007 

Error Stop 

Jump to Loc. stored in 0540 

0566 

Load A with content of 0552 
Store content of A at Loc. 0454 
Load A with content of 0542 
Subtr. 0004 from content of A 
Store content of A at 0542 
Subtr. content of 0555 from A 
If A / Jump to 0541 

Shift Left 1 the content of Loc. 0554 

If A + Jump to 0453 

Load A with 0046 

Error Stop 

2525 



Load A with content of 0562 
Store content of A at Loc. 0540 
If A / Jump to 0541 
Load A with content of 0561 
Store content of A at Loc. 0540 

Load A with content of 0556 

Store content of A in Loc. stored at Loc. 003 6 

Load A with the content of Loc . OO36 

Subtract 0004 from A 

Store content of A in Loc. OO36 

Logical sum of A and content of Loc. 0560 

If A / Jump to Loc. 0570 

Load A with content of Loc. 0557 



A-2525 



A-5252 



A-0004 
A-0000 



A-0446 
A-0446 
A-4366 
A-4362 
A-4362 
A-0054 



A-2525 



A-0566 
A-0566 

A-0563 



A-0427 

A-0530 
A-0524 

A-017U 

A-0530 



160-A:18 



oo6oo 4036 

2725 
^326 

6103 
2525 
7777 

0^60 

53^5 

00610 2303 
3705 
6303 
0^37 
0000 
0102 
6203 
Oi+37 

00620 0000 

0102 

6303 
OU37 
0000 
0102 
6203 
OU37 

00630 0000 

0102 

6303 
OU37 
0000 
0102 
6203 
OU37 

006*+0 0000 
0102 

6303 
0^37 

0000 
0102 
6203 
OU37 

00650 0000 

0102 
6303 
0^37 
0000 
0102 
6203 
OU37 



Store A at Loc. OO36 

Load Compl. of content of Loc. 055U 

Store A at Loc. 055U 

If A + Jump to O606 

Load Compl. of content of Loc. stored at 0025 

Stop 

Load A with 0060 

Add to content of Loc. 051*2 

Load content of 0605 

Subtr. content of Loc. 060l* from A 

If A is neg. Jump to 0615 

Load A with 0037 (123U) 

Error Stop 

Left Shift 1 

If A is pos. Jump to 0621 

Load A with 0037 

Error Stop 

Left shift 1 

If A is neg. Jump to 0625 

Load A with 0037 

Error Stop 

Left shift 1 

If A is pos. Jump to O63I 

Load A with 0037 

Error Stop 

Left shift 1 

If A is neg. Jump to 0635 

Load A with 0037 

Error Stop 

Left Shift 1 

If A is pos. Jump to 06U1 

Load A with 0037 

Error Stop 

Left Shift 1 

If A is neg. Jump to 061*5 

Load A with 0037 

Error Stop 

Left shift 1 

If A is pos. Jump to 0651 

Load A with 0037 

Error Stop 

Left shift 1 

If A is neg. Jump to 0655 

Load A with 0037 

Error Stop 

Left Shift 1 

If A is pos. Jump to 0661 

Load A with 0037 



A-0530 
A-5252 



A-7325 

A-0060 
A-U366 

A- 7777 
A-5252 



A-2525 



A5252 



A-2525 



A-5252 



A-2525 



A-5225 



A-2525 



A-5252 



A-2525 



160-A:19 



00660 0000 
0102 

6303 
0437 
0000 
0102 

6203 
0^37 

00670 0000 
7101 
0721 
2217 

4361 
2301 
0704 
4303 

00700 3613 
6506 
2205 
3205 
6572 

01+32 
0000 

4oi6 

00710 123U 
0437 
0U32 
4301 
4361 
0607 
0667 
0721 

00720 0724 
2301 
4330 
6530 
2310 
4331 
2307 
4335 

00730 2317 
4137 
2037 
0704 

4037 
3720 
6506 

2321 



Error Stop 

Left Shift 1 

If A is neg. Jump to 0665 

Load A with 0037 

Error Stop 

Left shift 1 

If A is pos. Jump to 0671 

Load A with 00? 7 

Error Stop 

Jump to Loc. stored in 0672 

0724 

Load A with content of Loc. 0712 

Store contents of A in 0613 (0617) 

Load A with the contents of Loc. 0674 

Subtr 0004 from contents of A 

Store contents of A in Loc. 0674 

Subtr. from A the contents of Loc. 0713 

If A + Jump to 0673 

Load A with contents of Loc. 0707 

Add to A contents of Loc. 0710 

If A / Jump to 0612 

Load A with 0032 

Error Stop 



A-5252 



A-2525 



A-0432 
A-0432 
A-4361 

A-4355 



A-0054 

A-4016 
A-5252 



Load A with contents of Loc. 0720 
Store Contents of A at Loc. 0672 
If A / Jump to 0673 
Load A with contents of Loc. 0714 
Store contents of A at Loc. 0674 
Load A with contents of Loc. 0717 
Store contents of A at Loc. 0672 

Load A with contents of Loc. 0711 

Store A at Loc. stored in 0037 (0667) 

Load A with contents of Loc. 0037 

Subtr. 0004 from A 

Store A at Loc. 0037 

Subtr. 0607 from A 

If A / Jump to 07?0 

Load A with contents of Loc. 0716 



A-0724 

A-4361 
A-0721 

A-0437 

A-0667 
A-O663 

A-0667 



160-A:20 



00740 4037 
0425 
0252 
0652 
0225 
6002 
0000 

22*52 
00750 1052 

6003 

0410 
0000 

2233 
1111 
6107 
2302 

00760 1206 
6104 
2204 
1306 

6003 
0000 

S666 
0452 

00770 0352 
0625 
0325 

\ 6002 

0000 

2714 
1467 
6003 

01000 04l4 
0000 

2371 
1537 
6003 

0415 
0000 

2304 



01010 



l6o4 
6oo4 
0416 
0000 

1537 

2041 

3604 
6oo4 



Store A at Loc. 0037 

Load A with 0025 

Logical prod, of 0052 and A 

Add 0052 to A 

Logical prod, of 0025 and A 

If A - Jump to 0747 

Error Stop 

Load A with compl. of contents of 0052 



A-0025 
A-0000 
A-0052 
A-0000 



A-0707 



A-0000 



Logical prod, of content of 0052 and A 

If A - Jump to 0754 

Load A with 0010 A-0010 

Error Stop 

Load A with contents of 1007 A-2304 

Logical prod, of A and contents of loc. stored at 0011 (5U73)A-0000 

If A / Jump to 0765 

Load A with 1111 A-llll 



Logical prod, of A and contents of Loc. 0766 (6666) 

If A / Jump to 0765 

Load A with 6666 

Log. prod, of A and contents of Loc. 0755 (1111) 

If A - Jump to 0767 

Error Stop 

Load A with 0052 

Log. sum of A and 0052 

Add 0025 to A 

Log. sum of A and 0025 

If A - Jump to 0775 

Error Stop 

Load compl. of contents of Loc. 0761 

Log. sum of A and contents of 0067 (167^ ) 

If A - Jump to 1002 

Load A with 0014 

Error Stop 

Load A with contents of Loc. 0711 

Log. sum of A and cont. of Loc. stored at 0037 (0437)(0664) 

If A - Jump to 1007 

Load A with 0015 

Error Stop 

Load A with contents of Loc. 1003 



Log. sum of A and contents of 1014 
If A - Jump to 1015 
Load A with 0016 
Error Stop 



(1*37) 



A-0000 

A-6666 
A-0000 



A-0052 

A-0000 

A-0025 
A-0000 



A-1673 
A-0000 



A-0437 
A-0000 



A-1537 



A-0000 



Load A with contents of 
Subtr. contents of Loc. 
If A - Jump to 1023 



Loc. OOUl 
1022 from A 



(5473) 



A-5473 
A-0000 



160-A:21 



01020 0l|20 
0000 

51*73 
2137 
360U 
600^ 
01*21 
0000 

01030 01*37 
2205 
3710 
6001* 
01*22 
0000 
51*73 
0552 

0101*0 36OI* 
6001* 

01*05 

0000 
7725 
21*1*1 

mo 
6003 

01050 Ol*2l* 
0000 
2537 

3323 
6003 

01*25 
0000 

2605 

01060 3^05 

600k 

Ol*26 
0000 

3323 
2305 

0616 
3703 

01070 6003 
01*06 
0000 

2735 
301*1 
600T 
0U30 
0000 



Load A with 0020 
Error Stop 

Load A with cont. of Loc. stored at 0037 
Subtr. cont, of Loc. 1030 from 1030 ( 01*37) 
If A - Jump to 1031 
Load A with 0021 
Error Stop 



Load A with contents of Loc. IO36 
Subtr. from A cont. of Loc. 1022 (51*73) 
If A - Jump to 1037 
Load A with 0022 
Error Stop 

Load A with compl. of 0052 

Subtr. from A cont. of Loc. 10l*lj (7725) 
If A - Jump to 101*5 
Load A with 0005 



Error Stop 

Load A with compl. of cont. of Loc. 001*1 
Add to A cont. of Loc. IO36 (51*73) 
If A - Jump to 1052 



(51*73 ) 



Load A with 0021* 

Error Stop 

Load A with compl. of cont. of Loc. 

Add to A cont. of Loc. 1030 (Ol*37) 

If A - Jump to 1057 

Load A with 0025 

Error Stop 

Load A with compl. of cont. of Loc. 1061* (3323) 



stored at 0037 (Oii37 
0667) 



1053 (3323) 



Add to A cont. of Loc. 
If A - Jump to 1065 
Load A with 0026 
Error Stop 



Load A with cont. of Loc. 1060 

Add to A 0016 

Subtr. from A cont. of Loc. 1061* (3323) 

If A - Jump to 1073 

Load A with 0006 

Error Stop 

Load A with compl. of cont. of Loc. IO36 

Add to A cont. of Loc. 001*1 (51*73) 

If A - Jump to 1100 

Load A with 003 

Error Stop 



(51*73 ) 



A-Ol*37 
A-0000 



A-5U73 

A-0000 



A-7725 
A-0000 



A-2301* 
A-0000 



A-73UO 
A-0000 



A-l*l*51* 
A-0000 



A-3305 
A-3323 
A-0000 



A-2301* 
A-0000 



160-A:22 



01100 2750 Load A with compl. of cont. of Loc. 1030 (0437) 

3137 Add to A cont. of Loc. stored at 0037 (0667) 

6003 If A - Jump to 1105 
0U31 Load A with 0031 
0000 Error Stop 

2705 Load A with compl. of cont. of Loc. 1100 

3204 Add to A the cont. of Loc. 1112 (2750) 

6004 If A - Jump to 1113 

OHIO Olj-32 Load A with 0032 

0000 Error Stop 
2750 

2313 Load A with cont. of Loc. 1100 

0743 Subtr. from A 0043 

3710 Subtr. from A cont. of Loc. 1105 (2705) 

6003 If A - Jump to 1121 

0407 Load A with 0007 

01120 0000 Error Stop 

2363 Load A with cont. of Loc. IO36 

3441 Subtr. from A cont. of Loc. 0041 (5473) 

6003 If A - Jump to 1126 

0434 Load A with 0034 
0000 Error Stop 

2376 Load A with cont. of Loc. 1030 

3537 Subtr. from A the cont. of Loc. stored at 0037 (0667) 

01130 6003 If A - Jump to 1133 

0435 Load A with 0035 
0000 Error Stop 

2304 Load A with cont, of Loc. 1127 (3537) 

3604 Subtr, from A cont. of Loc. III4O (3537) 

6004 If A - Jump to Ilia 

0436 Load A with 003 6 
0000 Error Stop 

3537 

2041 Load A with cont. of OOUl 

4042 Store A at 0042 

2041 Load A with cont. of 0041 

3442 Subtr. from A cont. of Loc. 0042 

6003 If A - Jump to 1150 

0440 Load A with 00i|0 

0000 Error Stop 

01150 2312 Load A with cont. of Loc. 1136 

0001 Add 0001 to A 

4137 Store A at Loc. 0667 (ind) 

2137 Load A with cont. of Loc. stored at 0037 (0667) 

3604 Subtr. from A cont. of Loc. 1160 (0437) 

6004 If A - Jump to 1161 

0441 Load A with 0041 
0000 Error Stop 



01140 



A-7340 
A-0000 



A-5027 
A-0000 



A-2750 
A-2705 
A-0000 



A-5473 

A-0000 



A-0437 
A-0000 



A-3537 
A-0000 



A-5473 
A-5473 

A=0000 



A-0436 

A-OU37 

A-0437 

A-0000 



160-A:23 



oil6o 0^37 
2305 
4206 

2707 
3204 

6007 
0442 
0000 

01170 0000 

7507 

2470 

7507 
4443 
3702 

6003 

0444 
01200 0000 

2306 

0102 

4310 
4544 
3712 

6oo4 
0445 

01210 0000 

4321 
2320 

0102 
4322 
2304 
0102 
4206 



01220 



01230 



4707 

3604 

6007 
0447 
0000 
0643 
5624 
0435 

0435 
2303 
0617 
4305 
0417 
5045 
3710 
6003 



Load A with cont. of Loc. 1154 

Store A at Loc. 1170 

Load A with corapl. of cont. of Loc. 1154 (3604) 

Add to A the cont. of Loc. 1170 (3604) 

If A - Jump to 1174 

Load A with 0042 

Error Stop 



Shift 1 cont. of Loc. 0043 (7643) 
Subtr. from A cont. of Loc. 1173 (7507) 
If A - Jump to 1201 
Load A with 0044 

Error Stop 

Load A with cont. of Loc. 1173 (7507) 

Left shift 1 

Store A at Loc. 1173 

Shift 1 left cont. of Loc. stored at 0044 (1171) 

Subtr. from A cont. of Loc. 1173 (7207) 

If A - Jump to 1212 

Load A with 00lj5 

Error Stop 

0643 

Load A with cont. of Loc. 1172 

Left shift 1 

Store A at Loc. 1172 

Load A with cont. of Loc. 1211 

Left shift 1 

Store A at Loc. 1225 

Shift left 1 cont. of Loc. 1211 

Subtr. from A cont. of Loc. 1225 (0643) 

If A - Jump to 1231 

Load A with 0047 

Error Stop 

5643 



526 

Load A with cont. of Loc. 1226 

Add to A 0017 

Store A at Loc. 1226 

Load A with 0017 

Add to A cont. of Loc. 0045 and store at 0045 

Subtr. from A cont. of Loc. 1226 (5643) 

If A - Jump to 1242 



A-3604 

A-4173 
A-0000 



A-7507 
A-0000 



A-7507 
A-721? 
A- 72 17 
A-7217 
A-0000 



A-2470 
A-516O 

A-4321 
A-0643 



A-0643 
A-0000 



A-5624 

A-5643 

A-0017 

A-5643 

A=»0000 



160-A:24 



0121*0 


01+50 


Load A with 005>0 




0000 


Error Stop 




2211 


Load A with cont. of Loc. 1253 




0671 


Add 0071 to A 




4207 


Store A at Loc. 1253 




0471 


Load A with 0071 




5146 


Add A to cont. of Loc. 1230 (stored at 0046) 




3604 


Subtr. cont. of Loc. 1253 from A 


01250 


6oo4 


If A - Jump to 1254 




0451 


Load A with 0051 




0000 


Error Stop 




0435 


0526 




2211 


Load A with cont. of 1265 




0644 


Add 0044 to A 




4207 


Store A at Loc. 1265 




0444 


Load A with 0044 


01260 


5206 


Add A to cont. of Loc. 1266 (0451) 




3604 


Subtr. cont. of Loc. 1265 from A (05l6) 




6007 


If A - Jump to 1271 




0452 


Load A with 0052 




0000 


Error Stop 




0451 


0515 




0451 


0515 




2431 


2456 


01270 


2431 


2456 




2301 


Load A with cont. of 1270 




0625 


Add 0025 to A 




4303 


Store A at Loc. 1270 




0425 


Load A with 0025 




5306 


Add A to cont. of Loc. 1267 




3706 


Subtr. cont. of Loc. 1270 from A 




6010 


If A - Jump to 1307 


01300 


0453 


Load A with 0053 




0000 


Error Stop 




0000 


0001 




0772 


0773 




0772 


0773 




4101 


4102 




4101 


4102 




2305 


Load A with cont. of 1302 


01310 


0601 


Add 0001 to A 




4307 


Store A at Loc. 1302 




5447 


Add one to content of Loc. 0047 




3711 


Subtr. cont. of 1302 from A 




6003 


If A - Jump to 1U7 




0454 


Load A with 0054 




0000 


Error Stop 




2313 


Load A with cont. of 1?04 



A-0435 
A-0526 

A-0071 
A-0526 

A-0000 



A-0451 
A-0515 

A-0044 

A-Q515 
A-0000 



A-2431 
A-2456 

A-0025 

A-2456 

A-0000 



A-0000 

A-0001 

A-0001 
A-0000 

A-0772 



160-A:25 



01320 



01330 



oi34o 



01350 



01360 



0501 

4315 
5550 
3717 
6003 

0455 
0000 
22.12 

4210 
0601 
4207 
5605 
3605 
6005 
OU56 
0000 

3720 
3720 

2335 
0601 

4337 
5737 
37 J H 
6003 

0457 
0000 

7051 
0470 
0000 

7101 
1361 
0471 

0000 

5611 
6303 

0400 

7112 

2212 

4204 
0400 



Add 0001 to A 

Store A at Loc. I3OI4 

Add 1 to cont. of Loc. (1303) stored at 0055 

Subtr. cont. of Loc. 1301* from A (077"?) 

If A - Jump to 1327 

Load A with 0055 

Error Stop 

Load A with cont. of Loc. 13l*l 

Store A at Loc. 131*0 

Add 0001 to A 

Store A at Loc. 13l±l 

Add 1 to cont. of Loc. 13 bO 

Subtr. cont. of Loc. 13U1 from A 

If A - Jump to 13^2 

Load A with 0056 

Error Stop 

3721 

3 721 

Load A with cont. of Loc. 1305 

Add 1 to A 

Store A at Loc. 1305 

Add 1 to cont. of Loc. 1306 

Subtr. cont. of Loc. 1305 from A 

If A - Jump to 1352 

Load A with 0057 

Error Stop 

Jump to Loc. stored at 0051 (1355) 

Load A with 0070 

Error Stop 

Jump to Loc. 1361 

Load A with 0071 

Error Stop 

Add 1 to cont. of Loc. 1372 

If A is neg. Jump to 1365 

Load A with 0000 

Jump to Loc. 0100 

Load A with cont. of Loc. 1377 

Store A at Loc. 1372 

Load A with 0000 



A-0773 

A-0773 
A-0000 



A-3720 



A-3721 

A-3721 
A-0000 



A-l|101 
A-I4IO2 

A-U02 
A-0000 



A-0000 
A-031it 



01370 



7101 
1400 

1006 

7101 

1400 
0000 
0100 
1000 



Jump to 11*00 



Jump to 11*00 



160-A:26 



oi4oo 



01410 



01420 



01430 



01440 



01450 



2200 
7643 
3701 
6002 

0000 
230U 

4203 
^706 

4600 
7507 
2311 
3702 
6002 
0000 
2305 
i|200 

7507 
1710 
6002 
0000 

2704 
U202 
5600 
0270 

0701 

3311 
6003 

0000 

76U3 
5200 
7643 
3703 

6002 

0000 
4706 

4305 
2706 
4203 
2312 

1200 

0560 
6002 

0000 

2303 

4202 
1600 
0506 
6002 



Load A with constant stored at 1401 

7505 

Subtr. cont. of Loc. 1401 from A (7643) 

If A - Jump to 140$ 

Error Stop 

Load A with cont. of Loc. 1401 

Store A at Loc. 1411 

Shift left 1 cont. of Loc. 1401 (7643) 

Shift left 1 cont. of Loc. 1411 (7643) 

7643 - 7507 

Load A with cont. of Loc. 1401 

Subtr. cont. of Loc. 1411 (7507) 

If A - Jump to 1416 

Error Stop 

Load A with cont. of Loc. 1411 

Store A at Loc. 1420 



Logical sum of A and cont. of Loc. 1411 (7507) 

If A - Jump to 1424 

Error Stop 

Load A with compl. of cont. of Loc. 1420 (7507) 

Store A at Loc. 1427 

Add 1 to constant at 1427 

0271 

Subtr. 0001 from A 

Add cont. of Loc. 1420 (7507) 

If A - Jump to 1435 

Error Stop 

7507 

Add A to constant at 1436 

7507 

Subtr. from A cont. of Loc. 1434 (7643) 

If A - Jump to 1442 

Error Stop 

Shift left 1 cont. of Loc. 1434 (7643) 

Store A at Loc. 1436 

Load A with compl. of Loc. 1436 (7507) 

Store A at Loc. 1450 

Load A with cont. of Loc. 1434 

Log. prod, of A and const, at 1450 (0270) 

0270 

If A - Jump to 1453 

Error Stop 

Load A with cont. of Loc. 1450 

Store A at 1456 

Log. sum of A and constant, at 1456 (0270) 

0270 

If A » Jump to l46l 



A-7643 
A-0000 

A-7643 

A-7507 

A-7507 

A-7507 
A-0000 

A-7507 

A-0000 

A-0270 
A-0271 



A-0270 
A-0000 



A-7643 
A-0000 

A-7507 

A-0270 

A-7507 
A-0000 



A-0270 
A-0000 
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011*60 0000 
2303 
1*202 
2600 
0506 
3307 
6002 
0000 

011*70 230b 
1*202 
3600 
0506 
6002 
0000 
2703 
1*203 

01500 2305 
3200 
7271 
6002 
0000 
0101 

0603 
1*205 

01510 0101 

3603 

6003 

0000 

1510 
5701 

0101 

0705 

01520 3701* 
6002 
0000 
0101 
1*310 
01*01* 

5312 

0101 



01530 



3711* 
6002 
0000 
0101 
1*212 

0103 

1*211 
2207 



Error Stop 

Load A with cont. of Loc. 11*56 

Store A at Loc. 11*61* 

Load A with compl. of const, at U*61* 

0270 

Add cont. of Loc. 11*56 to A (0270) 

If A - Jump to 11*70 

Error Stop 

Load A with cont. of Loc. 11*61* 

Store A at Loc. ll*73 

Subtr. const, at 11*73 (0270) from A 

0270 

If A - Jump to 11*76 

Error Stop 

Load A with compl. of cont. of Loc. U*73 (0270) 

Store A at Loc. 1502 

Load A with cont. of Loc. 11*73 

Add to A constant stored at 15 02 

7507 

If A - Jump to 1505 

Error Stop 

Transfer P to A 

Add 0003 to A 

Store A at Loc. 15H* 

Transfer P to A 

Subtr. cont. of Loc. l5ll* (1510) from A 

If A - Jump to 1515 

Error Stop 

1511 - 1523 - 1527 

Add 1 to cont. of Loc. 1511* 

Transfer P to A 

Subtr. 0005 from A 

Subtr. cont. of Loc. 15 ll* from A 

If A - Jump to 1523 

Error Stop 

Transfer P to A 

Store A at l5ll* 

Load A with OOOl* 

Add A to cont. of Loc. 1511* (1523) 

Transfer P to A 

Subtr. cont. of Loc. 15H* (1527) from A 

If A - Jump to 1533 

Error Stop 

Transfer P to A 

Store A at Loc. 151*6 

Left shift 2 

Store A at Loc. 151*7 

Load A with cont. of Loc. 151*6 



A-0270 
A-7570 
A-0000 

A-0270 

A-0000 

A-7507 



A-0270 
A-0000 



A-1505 
A-1510 



A-1510 
A-0000 



A-1511 
A-1516 
A-1511 

A-0000 



A-1523 

A-0001* 
A-1527 
A-1527 

A-0000 



A-1533 

A-6551* 
a-1533 
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015^ 3206 Add cont. of Loc. 15U6 (1533) to A 

3205 Add cont. of Loc. 151*6 (1533) to A 

320U Add cont. of Loc. 151*6 (1533) to A 

360U Subtr. cont. of Loc. 151*7 (6551*) from A 

SQOk If A - Jvunp to 1550 

0000 Error Stop 
1533 

615U 6551* 

01550 0101 Transfer P to A 

1*213 Store A at Loc. 1561* 

0111 Left shift 6 

■1*212 Store A at Loc. 1565 

1*610 Shift Left 1 cont. of Loc. 1561* (1550) 

4607 Shift Left 1 cont. of Loc. 1561* (^320) 

1*606 Shift Left 1 cont. of Loc. 1561* (661*0) 

0103 Shift Left 2 

OI560 0102 Shift left 1 

360U Subtr. cont. of Loc. 1565 from A (5015) 

6005 If A - Jump to 1567 

0000 Error Stop 

1550 3320 - 661*0 - 5501 

5300 5015 

0000 

0113 Multiply A by IOOxq ( 11*1*8 ) 

01570 6003 If A - Jump to 1573 

0000 Error Stop 

0001 0002 

2301 Load A with content of Loc. 1572 

0113 Multiply A by IOO10 (ll*l* 8 ) 

1*225 Store A at Loc. 1622 

2301* Load A with cont. of Loc. 1572 

0103 Left shift 2 

01600 0102 Left shift 1 

1*222 Store A at Loc. 1623 

2310 Load A with cont. of Loc. 1572 

0102 Left shift 1 

5217 Add A to cont. of Loc. 1623 

0103 Left shift 2 
0102 Left shift 1 

1+215 Store A at Loc. 16 2l* 

OlolO 1*613 Shift left 1 cont. of Loc. 1623 

3213 Add content of Loc. I62I* to A 

36IO Subtr. cont. of Loc. 1622 from A 

6002 If A - Jump to 1615 

0000 Error Stop 

5723 Add 1 to cont. of Loc. 1572 

3607 Subtr. cont. of Loc. 1625 from A (0623) 

6llh If A / Jump to 1633 



A-3266 
A-5021 
A-655U 
A-0000 



A-1550 

A-5015 

A-3320 
A-661*0 
A-5501 
A-6l*06 

A-5015 
A-0000 



A-0000 



A-0001 
A-0U*1* 

A-0001 
A-OOOl* 

A-0010 

A-0001 
A-0002 
A-0012 
A-0050 
A-0120 



A-0021* 
A-01U1* 
A-0000 



A-0002 

A- 71*6 
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01620 6oo6 
oooo 
oooo 

0000 

oooo 
0623 

o4oi 
^335 

01630 6103 
1632 
76^3 

2100 

1632 

3703 
6002 
oooo 

016U0 2706 

1100 

1632 
6002 
oooo 

2313 
1500 
1632 

01650 6002 
oooo 
2500 
1632 
3322 
6002 
oooo 

2725 

01660 3100 
1632 
6002 
oooo 
2332 
3500 
1632 
6002 

01670 oooo 

2337 
4206 

iHOO 

1632 
3603 
6003 
oooo 



If A - Jump to 1626 

Error Stop 

OUiU 

0010 - 0012 

0120 

Load A with 0001 
Store A at Loc. 1^72 

If A / Jump to I633 

7507 - 7510 - 7533 

Load A with cont. of Loc. I632 

Subtr. cont. of Loc. 1632 from A 
If A - Jump to l6k0 
Error Stop 

Load compl. of cont of Loc. 1632 

Log. prod, of A and cont. of Loc. 1632 

If A - Jump to I6I4.5 

Error Stop 

Load A with cont. of I632 

Log. sum of A and cont. of Loc. I632 



If A - Jump to 1602 

Error Stop 

Load A with compl. of cont. of Loc. I632 

Add cont. of Loc. 1632 to A 
If A « Jump to 1657 
Error Stop 
Load compl. of cont. of I632 

Add cont. of Loc. I632 to A 

If A - Jump to 166U 

Error Stop 

Load A with cont. of Loc. I632 

Subtr. cont. of Loc. I632 from A 

If A - Jump to 1671 

Error Stop 

Load A with cont. of Loc. I632 

Store A at Loc. 1700 

Store A at Loc. 1632 

Subtr. cont. of Loc. 1700 from A 
If A - Jump to 1701 
Error Stop 



A-0001 



A-76i*3 
A-0000 



A-0131; 
A-0000 



A-76U3 
A-0000 



A-0131* 
A-0000 

A-OI3I4 
A-0000 



A-761j3 
A-0000 



A-76U3 
A-76U3 
A-76U3 

A-0000 
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01700 



01710 



01720 



01730 



01740 



01750 



7643 


7507 - 7510 - 7533 


4701 


Shift left 1 cont. of Loc. 1700 


4500 


Shift left 1 cont. of Loc. 1632 


1632 




3704 


Subtr. cont. of Loc. 1700 from A 


6002 


If A = Jump to 1707 


0000 


Error Stop 


5707 


Add 1 to cont. of Loc. 1700 


5500 


Add 1 to cont. of Loc. 1632 


1632 




3712 


Subtr. cont. of Loc. 1700 from A 


6002 


If A ■ Jump to 1715 


0000 


Error Stop 


0423 


Load A with 0023 


5316 


Add A to cont. of Loc. 1700 


0423 


Load A with 0023 


5100 


Add A to cont. of Loc. 1632 


1632 




1722 


Log. sum of cont. of Loc. 1700 and A 


6002 


If A ■ Jump to 1725 


0000 


Error Stop 


5604 


Add one to cont. of Loc. 1731 


6006 


If A « Jump to 1734 


7101 


Jump to 1740 


1740 




0000 




0000 




0000 




7101 


Jump to 3500 


3500 




0000 




0000 




2200 




4000 


"A" "variable" 


3600 




3000 


"B" "variable" 


3600 




0700 




0770 




0707 




0701 




6004 




0000 


Error Pyramid 


7770 


Count 


0000 


"D" variable. 


5714 


Increase A 


5713 


Increase B 


2200 






160-A:31 



A«7507 
A=7507 

A=0000 



A=7510 
A=7510 
A=O000 

A=0023 
A=7533 
A=0023 

A=7533 
A=0000 

A=0001 



01760 



01770 



02000 



0000 


n C H variable 


5305 


Increase D 


5707 


Increase Count 


6504 




2310 


Load Data 


6002 




0000 


Error Pyramid 


0507 


Load Count 


4315 


Reset Count 


2200 




1111 




5313 


"C" + 1111 


3200 


Add Neg. Zero 


7777 




3716 




6002 




0000 




7101 




1400 
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03500 2300 
1603 
6003 
0000 

76U3 
U701 
U560 
2303 

03510 1700 
6002 
0000 
2700 
3310 
6002 
0000 
2713 

03520 1300 
6002 
0000 
2717 
3300 
6002 
0000 
2323 

03530 3700 
6002 
0000 
2327 
U300 

3731 

6002 
0000 

035UO U73U 
U700 
3736 
6002 
0000 

0U25 
53U2 
0U25 

03550 5300 
37U5 
6002 
0000 

5750 
5700 
3752 
600U 



Load A with cont. of Loc. 7777 

Log. sum of A and cont. of Loc. 3501* 

If A - Jump to 3505 

Error Stop 

7507 - 7217 - 72UU - 72U5 

Shift left 1 cont. of Loc. 350U 

Shift left 1 cont. of Loc. stored at Loc. 60 (76U3) 

Load A with cont. of Loc. 350U 

Log. sum of A and cont. of Loc. 7777 (7507) 

If A - Jump to 3513 

Error Stop 

Load A with compl. of cont. of Loc. 7777 

Add to A cont. of Eoc. 350U 

If A - Jump to 3517 

Error Stop 

Load A with compl. of cont. of Loc. 350U 

Log. prod, of A and cont. of Loc. 7777 

If A - Jump to 3523 

Error Stop 

Load A with compl. of cont. of Loc. 350U 

Add cont. of Loc. 7777 to A 

If A - Jump to 3527 

Error Stop 

Load A with cont. of Loc. 350U 

Subtr. cont. of Loc. 7777 from A 

If A - Jump to 3533 

Error Stop 

Load A with cont. of Loc. 350lj 

Store A at Loc. 7777 

Subtr. cont. of Loc 350ii from A 

If A - Jump to 35UO 

Error Stop 

Shift left 1 cont. of Loc. 3501* 

Shift left 1 cont. of Loc. 7777 

Subtr. from A cont. of Loc. 350U 

If A - Jump to 35U5 

Error Stop 

Load A with 0025 

Add A to cont. of Loc. 350U 

Load A with 0025 

Add A to cont. of Loc. 7777 
Subtr. from A cont. of Loc. 35 OU 
If A ■ Jump to 3551a 
Error Stop 

Add 1 to cont. of Eoc. 35 OU 
Add 1 to cont. of Loc. 7777 
Subtr. from A cont. of Loc. 35QU 
If A » Jump to 3563 



A-76U3 
A-0000 



A-7507 
A-7507 
A-7507 

A-0000 



A-0270 

A-0000 



A-0270 
A-0000 



A-0270 
A-0000 



A-7507 
A-0000 

A-7507 
A-0000 



A-7217 
A-7217 
A-0000 



A-0025 
A-72UU 
A-0025 

A-72UU 
A-0000 



A-72U5 

A-7&5 

A-0000 
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03560 



03570 



03600 



0000 Error Stop 

546l 6306 - 0663 

546l 311*3 - 6306 - 0663 

U70I Shift left 1 cont. of Loc. 3562 

4702 Shift left 1 cont. of Loc. 3562 

230i+ Load A with cont. of Loc. 3561 

0103 Left shift A 2 places 

4306 Store A at Loc. 3561 

3706 Subtr. from A cont. of Loc. 3562 

6003 If A - Jump to 35714 

0401 Load A with 0001 

0000 Error Stop 

2312 Load A with cont. of Loc. 3562 

0110 Left shift A 3 places 

0110 Left shift A 3 places 
4315 Store A at Loc. 3562 

2317 Load A with cont. of Loc. 3561 

0111 Left shift A 6 places 
4321 Store A at Loc. 3561 

3721 Subtr. from A cont. of Loc. 3562 

0OO3 If A - Jump to 3607 

0401 Load A with 0001 

0000 Error Stop 

0412 Load A with 0012 



A-3143 
A-5306 
A-51|6l 
A-63O6 



A-0000 



A-6306 
A-3066 
A-O663 



A-6306 
A-O663 

A-0000 



A-0012 



O36IO 



03620 



O363O 



0112' 
360k 
6oo4 
0*101 

0000 
oi4i* 
2206 

0114 

3605 
6005 

0401 
0000 

2525 
1252 

2212 
0114 

0114 
4207 
2207 
0115 
4205 
36O3 

6oo4 
0000 



A times 10 (12 Q ) 

Subtr. from A cont. of Loc. 3615 

If A - Jump to 3616 

Load A with 0001 

Error Stop 

Load A with cont. of Loc. 3624 
Right shift A 1 place 

Subtr. from A cont. of Loc. 3625 
If A - Jump to 3626 
Load A with 0001 
Error Stop 



Load A with cont. of Loc. 3640 
Right shift A 1 place. 

Right shift A 1 place 

Store A at Loc. 3640 

Load A with cont. of Loc. 3641 

Right shift A 2 places 

Store A at Loc. 3641 

Subtr. from A cont. of Loc. 361)0 

If A - Jump to 3642 

Error Stop 



A-0144 
A-0000 



A-2525 
A-1252 

A-0000 



A-5252 
A-6525 

A-7252 

A-5252 
A-7252 

A-0000 
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0361*0 5252 
5252 

5601* Add 1 to cont. of Loc. 36U6 A-7771 

6113 If A / Jump to 3656 

6026 If A - Jump to 3672 
5252 

7770 7771 

2702 Load A with compl. of Loc. 361*5 A-2525 

03650 1*303 Store A at Loc. 361*5 

1*311 Store A at Loc. 361*0 

U311 Store A at Loc. 361*1 

7100 3655 to Loc. 3663 and Jump to 
3663 Loc. 366I* 

7121 Jump to 3711* 

7101 Jump to 3626 
3626 

O336O 0000 Error Stop 7100 instruction failed 
0000 

7101 Jump to Loc. 3655 

3660 3655 

5603 Add 1 to cont. of Loc. 3667 

7101 Jump to 3662 
3662 

0000 0001 

03670 7101 Jump to 3500 
3500 

0507 Load A with compl. of 0007 A-7770 

1*3 25 Store A at loc. 361*6 

7101 Jump to 361*7 
361*7 
3711* 

7701 Stop when Sel. Stop 1 ia up, otherwise P + 1 

03700 7702 Stop when Sel. Stop 2 is up, otherwise P ♦ 1 

7701* Stop when Sel. Stop 1* is up, otherwise P ♦ 1 

7707 Recheck Stop 1, 2, and 1* 

5553 Add 1 to cont. of Loc. stored at 0053 (1375) 

6101* If A / Jump to 3710 

7777 Halt 

7101 Jump to 0100 
0100 

03710 01*25 Load A with 0025 A-0025 

6111 If A / Jump to 3722 

7101 Jump to 61*31 

61*31 

2205 Load A with cont. of Loc. 3721 A-366O 

1*332 Store A at Loc. 3663 

2327 Load A with cont. of Loc. 3667 

6527 If A / Jump to 3670 

160-A:35 



03720 



03730 



0371*0 



03750 



03760 



03770 



61*21 
3660 

7625 
7101 
3752 
OU52 

7625 
7710 



371*2 
7720 
3756 
771*0 
376U 
ol*oo 

61*30 
7775 

7773 
7767 
5703 
6506 
0502 
U306 
01*00 
61*1*2 

7033 
0000 
01*76 
0000 
01*00 
61*1*7 
5716 
6522 

0501* 
1*321 
01*00 
61*56 
5723 
6530 
0510 
1*326 

01*00 
61*61* 
5275 



If A • Jump to 3662 

Replace E part of Loc. 3721* (stored at 0025) with 25 

Jump to 3725 

3725 

Load A with 0052 

Replace E part of Loc. 3721* (stored at 0025) with 52 

If Sel. Jump 1 set jump to 371*2 

(If not jump to 3731) 



If Sel. Jump 2 set Jump to 3756 

If not jump to 3733 

If Sel. Jump 1* set jump to 3761* 

If not jump to 3735 

Load A with 0000 

If A-0 Jump to 3706 

Counter for Sel. Jump 1 

Counter for Sel. Jump 2 
Counter for Sel. Jump 1* 
Add 1 to cont. of Loc. 3737 
If A / Jump to 3735 
Load A with compl. of 0002 
Store A at Loc. 3737 
Load A with 0000 
If A * Jump to 3705 

Check sum constant 

Load A with 0076 HWI Error 

Error Stop 

Load A with 0000 

If A - Jump to 3705 

Add 1 to cont. of Loc. 371*0 

If A / Jump to 3735 

Load A with compl. of 0001* 
Store A at Loc. 371*0 
Load A with 0000 
If A - Jump to 3705 
Add 1 to cont. of loc. 371*1 
If A / Jump to 3735 
Load A with compl. of 0010 
Store A at Loc. 371*1 

Load A with 0000 

If A - Jump to 3705 

Check sum constant 



A-3725 



A-0052 
A-3752 



A-0000 



A-7776 - 0000 
A-7775 



A-7771* - 0000 
A-7773 



A-7767 - 0000 
A-7767 
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\Store 




0000-0001 



Load loc. 
7777 with 
constant 

(7643) 



0002-0003 



Load loc. 
3504 with 
constant 

(7643) 



0004-000 5 
/ Jump 
' to 
>. 0100 




0100 



0105 



Check 
60 instr. (ZJF) 



J A=0060 



OK 



Check 
65 instr. (NZB) 



^ A=0065 



OK 



0106 



Check 
62 instr. (PJF) 



JA=0062 



OK 



error 
P=0102 



error 
P=0104 



error 
P=0110 



0113 



Check 
67 instr. (NJB) 



JA=0067 
error 
P=0112 



OK 



0114-0115 



0122 



Check 



»| 61 instr. (NZF) 
05 instr. (LCN) 



^A=0061 
error 
P=0117 



OK 



Check 
64 instr. (ZJB) 



JA=0064 
error 
P=0121 



OK 



0123 



Check 
63 instr. (NJF) 



" I A=0063 
error 
P=0125 



OK 



0130 



Check 
66 instr. (PJB) 



JA=0066 
error 
P=0127 



OK 



0131-0132 



Check 

0110 instr. (LS3) 
63 instr. (NJF) 



^A=0063 
error 
P=0134 



OK 



0135-0136 



Check 

0110 instr. (LS3) 
62 instr. (PJF) 



JA=0062 
error 
P=0140 



OK 



0144-0147 



0152-0153 



05 
O 

I 

> 

00 

-J 



Check 
04 instr. (LDN) 



fA=004 
error 
P=0151 



OK 



Check 
*| 23 instr. (LDB) 



JA=0023 
error 
P=0155 



OK 



0157-0161 



Check 
33 instr. (ADB) 



jA=0033 
error 
P=0163 



0164-0166 



OK 



Check 
27 instr. (LCB) 



JA=0027 
error 
P=0170 



OK 



0171*0173 



Check 
37 instr. (SBB) 



|A=0037 
error 
P=0175 



OK 



0176-0201 



Check 
34 instr. (SBD) 



JA=0034 
error 
P=0203 



OK 



0204-0264 



Check 
0102 instr. (LSI) 



JTa^oooT 

error 

P=0210, 0214, 0220. 

0224, 0230, 0234, 

0240, 0244, 0250. 

0254, 0260, 0264. 



OK 



0266-0306 



0307-0367 



0370-0450 



0452-0531 



0532-0534 



Check 
-»| 0103 instr. (LS2) 



OK 



^A=0001 
error 
P=0272, 0276, 0302, 
0306 



Check 
*| 13 instr. (LPB) 



OK 



Check 
17 instr. (SCB) 



OK 



Check 
27 instr. (LCB) 



OK 



i A=0013 

error 

P=0313, 0317, 0323, 

0327,0333,0337, 

0343, 0347, 0353, 

0357,0363,0367. 



|A=0017 

error 

P=0374, 0400, 0404, 

0410,0414,0420, 

0424, 0430, 0434, 

0440, 0444, 0450. 



I A=0027 

error 

P=0455, 0461,0465, 

0471,0475,0501, 

0505,0511,0515, 

0521,0525,0531. 



Check 
07 instr. (SBN) 



|A=0007 



0537-0540 




error 
P=0536 



0563-0565 



Change jump 
address of loc. 
0540 
to 0566 



0541-0547 



Change cont. of 
check location 
at 0454-0530 



(05 50-51)(0453-0531) 



Check 
46 instr. (SRF) 



|A=0046 
error 
P=0333 
and stops between 
(0&53-0531) 



OK 



0532-0534 



Check 
07 instr. (SBN) 



I A»0007 



error 
P=0536 



0537-0540 




0566-0567 



Restore jump 
location at 
loc. 0540 to 
0563 



0570-0576 



Restore original 
content of check 
locations at 
0454-0530 



0577-0603 



Store variables 
at 0036(0530) 
at 0554(5252) 



-© 



o- 



CO 

o 

I 

> 

CO 
CO 



0606-0607 



Restore content 
of loc. 0542 (was 
changed during 
last check) 
to 4366 



0610-0670 



Check 
37 instr. (SBB) 



OK 



671-0672 




*A=0037 
error 
P=0614, 0620, 0624, 0630 
0634, 0640, 0644, 0650 
0654,0660, 0664,0670 



0724-0736 



0737-0745 



0747-0750 



Restore original 
content of jump 
loc. at 0672 and 
check locations 

between 
0612 and 0670 



Check 
02 instr. (LPN) 



A=U0TTO 



OK 



Check 
10 instr. (LPD) 



A=0010 



error 
P=0746 



error 
P=0753 



0775-0777 



1002-1004 



Check 
14 instr. (SCD) 



~W- 



OK 



1007-1011 



Check 
15 instr. (SCI) 



= 0014 



J 1 " 



OK 



Check 
16 instr. (SCF) 



= 0015 



A=0016 



error 
P=1001 



error 
P=1006 



error 
P=1013 



1045-1047 



1052-1054 



Check 
24 instr. (LCD) 



1* 



OK 



1057-1061 



Check 
»| 25 instr. (LCI) 



= 0024 



OK 



Check 
26 instr. (LCF) 



A=0025 



A=0026 



error 
P=1051 



error 
P=1056 



error 
P=1063 



1113-1116 



Check 
H 07 instr. (SBN) 



OK 



1121-1123 



Check 
34 instr. (SBD) 



OK 



1120-1130 



Check 
35 instr. (SBI) 



A=0007 



A=0034 



A=0035 



error 
P=1120 



error 

?=i:?5 



error 
P=1132 



0721-0723 



0673-0701 



Change jump 

location of 0672 

to 0724 



Change content 
Of check loca- 
tions between 
0612 and 0670 



0702-0704 0612-0670 



Check 
32 instr. (ADF) 



0671-0672 



OK 




i A=O032 
error 
P=0614, 0620, 0624, 0630 
0634,0640,0644,0650 
0654,0660,0666,0670 
0706 



0754-0756 



OK 



0757-0761 



0762-0764 



0767-0773 



Check 
11 instr. (LPD 



|A=fl666 



OK 



Check 
12 instr. (LPF) 



A=U6M 



OK 



Check 
13 instr. (LPB) 



1^ 



odbo 



OK 



Check 
03 instr. (SCN) 



error 
P=0765 



T^ 



7J0"0"0" 



error 
P=0765 



error 
P=0765 



error 
P=0774 



1015-1017 



1023-1025 



1031-1033 



OK 



Check 



20 instr. (LDD) 



OK 



1037-1041 



Check 
21 instr. (LDI) 



A=0020 



OK 



Check 



22 instr. (LDF) 



A=0021 



OK 



Check 



» 05 instr. (LCN) 



A=0022 



T^ 



= 0005 



error 
P=1021 



error 
P=1027 



error 
P=1035 



error 
P=1043 



1065-1070 



OK 



1073-1075 



Check 
06 instr. (ADN) 



OK 



A=0006 



1100-1102 



Check 
30 instr. (ADD) 



A=0030 



OK 



1105-1107 



Check 
31 instr. (ADD 



A=0031 



OK 



Check 
32 instr. (ADF) 



A=0032 



error 
P=1072 



error 
P=1077 



error 
P=1104 



error 
P=llll 



OK 



1133-1135 



1141-1145 



Check 
36 instr. (SBF) 



J 1 



OK 



Check 
*| 40 instr. (STD) 



OK 



=0036 



1150-1155 



1161-1165 



Check 

41 instr. (STF) 



A=0040 



OK 



Check 
42 instr. (STF) 



A=0041 



A=0042 



error 
P=1137 



error 
P=1147 



error 
P=1157 



error 
P-1167 



OK 



OK 



OK 



OK 



G> 



03 

o 



00 

CD 



1174-1176 



Check 
44 instr. (SRD) 



OK 



1201-1206 



Check 
Jt 45 instr. (SAD 



A=0044 



A=0045 



OK 



1212-1214 



1215-1222 



1231-1237 



Change constant 

at location 

1172 



Check 
47 instr. (SRB) 



T^ 



= 0047 



OK 



Check 
50 instr. (RAD) 



error 
P=1200 



-J*= 



0050 



OK 



1242-1250 



Check 
51 instr. (RAD 



A=0051 



OK 



1254-1262 



Check 
*| 52 instr. (RAF) 



error 
P=1210 



error 
P=1224 



"F 



OK 



= 0052 



error 
P=1241 



error 
P=1252 



error 
P=1264 



1271-1277 



Check 
53 instr. (RAB) 



OK 



1307-1314 



1317-1324 



Check 
54 instr. (AOD) 



OK 



Check 
■» 55 instr. (AOD 



A=0053 



A=0054 



OK 



1327-1335 



1342-1347 



Check 
56 instr. (AOF) 



A=0055 



w- 



OK 



Check 
*| 57 instr. (AOB) 



= 0056 



error 
P=1301 



T^ 



1352 



OK 



Check 
70 instr. (JPI) 



1355-56 



OK 




0057 



A=0070 



error 
P=1316 



error 
P=1326 



error 
P=1337 



error 
P=1351 



error 
P=1354 



1361 



Increase counter 

of location 1372 

by 1 

(original 0314) 



1362 




Check if 
counter is 

negative 




0- 



No 

13 63,6*4,™ 
Jump \ 
to \ 
0100 / 



1365-1367 



1400-1403 



Restore counter 
of 1372 to LES 
original count 

(0314) 



1370-71 




1405-1414 



Check 



2200 instr. (LDC) 




error 
P=1404 



OK 



Check 
4600 instr. (SRC) 



~A?0" 



error 
P=1415 



1424-1432 



1435-1440 



Check 
5500 instr. (AOC) 



JA?0 

error 
P=1433 



OK 



Check 
•15200 instr. (RAC) 



AjiO 



OK 



1442-1451 



1453-1457 



Check 
1200 instr. (LPC) 



A^0 



OK 



Check 
*|1600 instr. (SCO 



error 
P=1441 



error 
P=1452 



JA*0 

error 
P=1460 



OK 



1461-1466 



Check 
2600 instr. (LCC) 



|A7o 

error 
P=1467 



OK 



1470-1474 



Check 
3600 instr. (SBC) 



~p°~ 



error 
P=1415 



1416-1422 



OK 



Check 
-J 4200 instr. (STC) 



error 
P=1423 



OK 



1476-1503 



Check 
3200 instr. (AOC) 



"Ja?o- 



OK 



OK 



error 
P=1504 



1505-1544 



1550-1562 



Check 
0101 instr. (PTA) 



"Ja?c 



OK 



Check 
0111 instr. (LS6) 



error 
P=1513, 1522, 1532, 1545 



|A?0 
error 
P=1563 



1567-1613 



1615-1616 



OK 



Check 



* 0113 instr. (MUH) 



1A?0- 



OK 



Add 1 to counter 
at 1572 and 
-»b«bfrac.t constant 

(0623) at 1625 



error 
P=1571, 1614 



1617-1620 




Yes 



1626-1627 



Restore 
counter at loc. 
1572 

to 
0001 



1633-1636 



Check 
2100 instr. (LDM) 



— pro 

error 
P=1637 



-© 



Q3 
O 

I 

> 

O 



G> 



1640-1643 



Check 
1100 instr. (LPM) 



T^o 



OK 



1645-1650 



Check 
1500 instr. (SCM) 



JaW 



OK 



1652-1655 



Check 
2500 instr.'(LCM) 



JaW 



OK 



1657-1662 



Check 
3100 instr. (ADM! 



OK 



error 
P=1644 



JaW 



1664-1667 



Check 
3500 instr. (SBM) 



error 
P=1651 



JaW 



OK 



1671-1676 



Check 
4100 instr, (STM) 



error 
P=1656 



JaW 



OK 



errc • 
P=1663 



error 
P=1670 



error 
P=1677 



1701-1705 



1707-1713 



Check 
4500 instr. (SRM) 



J^T 



OK 



1715-1723 



Check 
5500 instr. (AOMJ- 



AfO 



OK 



Check 



* 5100 instr. (RAM) 



JaW 



1725 



OK 



Increase counter 
at loc. 1731 
by 1 



1726 



error 
P=1706 



error 
P=1714 



error 
P=1724 



0- 




1 734-1735 



Yes 




3500-35-02 



Check 
2300 instr. (LDS) 







"J^o" 



error 
P = 3503 



3505-3511 



3513-3515 



Check 
1700 instr. (SCS) 



JaTo 

error 
P = 3512 



OK 



3517-3521 



Check 
2700 instr.(LCS) 



j&w 



OK 



Check 
1300 instr. (LPS) 



JaW 



3523-3525 



OK 



Check 
3300 instr. (ADS) 



JaW 



OK 



3527-3531 



Check 
*| 3700 instr. (SBS) 



error 
P=3516 



error 
P = 3522 



error 
P=3526 



JA?0 

error 
P=3532 



OK 



3533-3536 



Check 
4300 instr. (STS) 



error 
P=3537 



OK 



3540-3543 



Check 
4700 instr. (SRS) 



jAT?r 



error 
P=3544 



3545-3552 



3554-3557 



Check 
5300 instr. (RAS) 



JaTc 



3563-3571 



Check 
5700 instr. (AOS) 



JaW 



3574-3604 



3607-3612 



Check 

2-47 instr. (SRB) 

and compare 

with 0103 

instr. (LS2) 



JaW 



3616-3621 



Check 
0111 instr. (LS6) 



3626-3636 



Check 
-»| 0112 instr. (MUt 



A=0001 



Check 
0114 instr. (RSI) 



A=0001 



error 
P = 3553 



error 
P=3560 



error 
P=3572 



error 
P=3606 



T^ 



=0001 



Check 
0115 instr. (RS 2) 
0114 instr. (RSI) 



error 
P=3614 



error 
P=3623 







error 
P=3637 



3642 



Add 1 to counter 
at 3646 (-10) 



3643 



3672-3673 



J IS 

-M counter 



Yes 




3647-3652 



Restore count 
at 3646 
to -10 



Change constants 
used for right 

shift: 

check to their 

complement 



3653-54 

'Check 7100 \ 
instr. (JPR) 
->(( change const, at } 
vide. 3664 to 
3655) 



3664 



Add to count 

at loc. 36637 

(0000) 



3665-66 



OK 



OK 




6 ) to 3626 



o 



3662-3663 



Check 
7100 instr.(JPR) 



JaW 



OK 



3714-3717 



Restore 
loc. 3663 to 
3660 



3720 



3677 



Is count 

at 3667 





error 
P=3660 




Stop 

if Sel. Stop 

1 is up 



3700 



Stop 

if Sel. Stop 

2 is up 



to 3500 



3702 



3703 



Stop 
*| if any sel. stop 
is up 



Add 1 to 
count at 1375 



03 

o 

I 

> 



3704 




Yes 




0. 

to 0100 



(3710-ll)(3722-26) 



3727-30 



Check 
76xx instr. (HWI) 



JM 



OK 



0076 



Sel. Jump 
1 up 



error 
P=3753 



3742 



Yes 



Add 1 to 
count at 
3737 (-2) 



3735-36 



Jump to 
loc. 0100 



© 



3744 



3701 



Stop 

if Sel. Stop 

4 is up 



3731-32 



3746 



Restore 

count at 

3737 



No 



Sel. Jump 
2 up 



3756 



No 



3733-34 



Sel. Jump 
4 up 



Yes 



3764 



Add 1 to 
count at 
3740(-4) 



3756 



Yes 



Add 1 to 
count at 
3741 (-10) 




3760 



3762 



3766 



Restore 

count at 

3740 



3770 



Restore 

count at 

3741 



NUMBER: T035 

TITLE: Punch Power Supply Test 

CATEGORY: 160 -A 

MINIMUM EQUIPMENT NEEDED: 160-A 

PURPOSE 

This program will test the punch power supply load down and punch residual 
magnetism. 

OPERATING INSTRUCTIONS 

Paper Tape 

0000 

0142 

Turn on the punch and start at P=0000 

ADDITIONAL INSTRUCTIONS: To change this program from 8 level to 7 level enter 
0101 in memory location 0063 and enter 0177 in memory location 0066. 

HALTS 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS 
STARTING ADDRESS: 



P=0055, Z=7777 



P^OIO?, Z=0000 



P=0111, Z=7700 



EXPLANATION 

After punch out of leader then allow leader insert into 
reader. Insert the tape so that the first frame read will 
be a binary 0. Do not master clear. 

Put the computer in run. The program will run continuously 
until the end of tape or until an error occurs. 

Error halt, error data in "A". 
Put the computer in run. 

Halt with correct data in "A". 
Put the computer in run. 
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T-035 
PUNCH POWER SUPPLY LOAD DOWN & PUNCH RESIDUAL MAGNETISM TEST 



0000 


0577 




0001 


4075 




0002 


7565 




0003 


7400 




0004 


5475 




0005 


6502 




0006 


0507 




0007 


4074 




0010 


0401 




0011 


4077 




0012 


0524 




0013 


4075 




0014 


7351 




0015 


0100 




0016 


5475 




0017 


6503 




0020 


2302 




0021 


0601 




0022 


65OI 




0023 


7400 




0024 


4477 




0025 


1241 




0026 


4077 




0027 


6515 




0030 


0524 




0031 


4075 




0032 


7332 




0033 


OO67 




0034 


5475 




0035 


6503 




0036 


2320 




0037 


0601 




0040 


6501 




0041 


7400 




0042 


5477 




0043 


2074 




0044 


6072 




0045 


5474 




0046 


6534 




0047 


6006 




0050 


0524 




0051 


4075 




0052 


7600 




0053 


6401 




0054 


6127 




0055 


7777 




OO56 


7503 




0057 


6707 
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0060 


6610 




0061 


1*102 




0062 


0000 




0063 


0201 




0061* 


0066 




0065 


0077 




0066 


0377 




0067 


liiol* 




0070 


0000 




0071 


0000 




0072 


0000 




0073 


0000 




0071* 


0101 




0075 


0001 




0076 


011*2 




0077 


0077 




0100 


05 2\x 




0101 


1*075 




0102 


7600 




0103 


1*076 




oiol* 


3U77 




0105 


6005 




0106 


2076 




0107 


0000 




0110 


2077 




0111 


7700 




0112 


51*75 




0113 


6511 




01 il* 


7600 




0115 


6002 




0116 


0000 




0117 


1*1*77 




0120 


1066 




0121 


1*077 




0122 


6005 




0123 


31*63 




012I* 


6721* 




0125 


7101 




0126 


0132 




0127 


2066 




0130 


1*077 




0131 


6531 




0132 


7503 




0133 


7101 




013U 


0010 




0135 


1*101* 




0136 


7503 




0137 


7101 
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OlU-0 


OlOO 


OlUl 


1*102 


Q1U2 


kttk 
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NUMBER: T036 

TITLE: Punch and Reader Test 

CATEGORY: 160- A 

MINIMUM EQUIPMENT NEEDED: 160- A 

PURPOSE 

The program checks the reliability of the punch and reader under variable speed 
operations. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 0000 

T ERMINAL ADDRESS : 0303 

CHECK SUM: 0160 

STARTING ADDRESS: 
Part 1 0001 

Turn the punch ON and punch out a small amount of leader. 
Master clear, set P=0001, and put the computer in run. The 
punch will run out enough tape to reach the reader and stop 
with P-0041. 

Part 2 0000 

Insert the tape into the reader so that the first frame read will 
be a 0. 

Start PsOOOO. The program will continue to punch and read until 
an error occurs. A pattern of the binary count is punched from 
0000 to 0177, followed by a binary count from 0000 to 0177 with 
two frames of each count punched. This is followed by 3 then 4 
frames of each count. 

HALTS EXPLANATION 

770x x = error frame of a particular count. Error stops 

are coded to tell which frame of a particular count was 
read or punched wrong. Observation of the tape by the 
operator will determine a punch or reader error. 
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T036 






TEST PROGRAM # 


1- PUNCH & READER 




0000 


7102 




0001 


7102 




0002 


0100 




0003 


0004 




ooo4 


0501 




0005 


4250 




0006 


0400 




0007 


4234 




0010 


4234 




0011 


4234 




0012 


4234 




0013 


7536 




ooiu 


7333 




0015 


0044 




0016 


6204 




0017 


5627 




0020 


5625 




0021 


5623 




0022 


5621 




0023 


1627 




002k 


6511 




0025 


5710 




0026 


2310 




0027 


0701 




0030 


4312 




0031 


1622 




0032 


6524 




0033 


2221 




0034 


4316 




0035 


2213 




0036 


4321 




0037 


5616 




oo4o 


6532 




ooiu 


7700 




0042 


6436 




0043 


0200 




0044 


0200 




0045 


0200 




0046 


0200 




0047 


0043 




0050 


0044 




0051 


4104 




0052 


0200 




0053 


6200 




0054 


6204 




0055 


0100 




OO56 


0000 




0057 


0100 
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0060 


0270 




0061 


0062 




0062 


5606 




0063 


5606 




OO6I4 


5606 




0065 


5606 




0066 


7060 




0067 


0200 




0070 


001*0 




0071 


00i*0 




0072 


001*0 




0073 


0200 




0071* 


2121 




0075 


0021 




0076 


0303 




0077 


0077 




0100 


01*00 




0101 


1*070 




0102 


7501* 




0103 


7201* 




oioh 


0075 




0105 


6103 




0106 


1*102 




0107 


0071* 




0110 


2071* 




0111 


11*70 




0112 


6113 




0113 


7501* 




oiil* 


7301* 




0115 


0071 




0116 


6103 




0117 


1*101* 




0120 


0070 




0121 


51*70 




0122 


11*67 




0123 


6521 




0121* 


6003 




0125 


2071* 




0126 


770L 




0127 


01*00 




0130 


1*070 




0131 


1*071 




0132 


7501* 




0133 


7201* 




013U 


0076 




0135 


6103 




0136 


1*102 




0137 


0071* 
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0140 


2074 




Ol4l 


1VT0 




0142 


6117 




0143 


2075 




0144 


1471 




0145 


6116 




0146 


7504 




0147 


7304 




0150 


0072 




0151 


6103 




0152 


4104 




0153 


0070 




0154 


5470 




0155 


5471 




OI56 


1467 




0157 


6525 




0160 


6005 




0161 


2074 




0162 


7702 




OI63 


2075 




0164 


7702 




OI65 


0400 




0166 


4070 




0167 


4071 




0170 


4072 




0171 


7504 




0172 


7204 




0173 


0077 




0174 


6103 




0175 


4102 




0176 


0074 




0177 


2074 




0200 


1470 




0201 


6123 




0202 


2075 




0203 


1471 




0204 


6122 




0205 


2076 




0206 


1472 




0207 


6121 




0210 


7504 




0211 


7304 




0212 


0073 




0213 


6103 




0211* 


4104 




0215 


0070 




0216 


5470 




0217 


5471 
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0220 


5472 




0221 


1467 




0222 


6531 




0223 


6007 




0224 


2074 




0225 


7701 




0226 


2075 




0227 


7702 




0230 


2076 




0231 


7703 




0232 


0400 




0233 


4070 




0234 


4071 




0235 


4072 




0236 


4073 




0237 


7504 




0240 


7204 




0241 


0100 




02l<-2 


6103 




0243 


4102 




021*4 


0074 




0245 


2074 




0246 


1470 




0247 


6124 




0250 


2075 




0251 


1471 




0252 


6123 




0253 


2076 




0254 


1472 




0255 


6122 




0256 


2077 




0257 


1473 




0260 


6121 




0261 


7504 




0262 


7304 




0263 


0074 




0264 


6103 




0265 


4104 




0266 


0070 




0267 


7061 




0270 


1467 




0271 


6532 




0272 


7057 




0273 


2074 




0274 


7701 




0275 


2075 




0276 


7702 




0277 


2076 
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0300 
0301 
0302 
0303 



T703 
20T7 
7701* 
2750 
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NUMBER: T037 

TITLE: Q.A. Variable Speed Reader - "76" Instruction Test 

CATEGORY: 160-A 

MINIMUM EQUIPMENT NEEDED: 160-A 

PURPOSE 
This test will check the reader at variable speeds. 

DESCRIPTION 
1. See flow chart. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 0000 

TERMINAL ADDRESS: 0077 

STARTING ADDRESS: 0000 

ADDITIONAL INSTRUCTIONS: 
the computer in run. 

Memory location 0060 contains the reader level mask. If the reader mask is changed 
to read less than 8 level, then 0000 should be entered in memory location 0057. 



Insert a binary count loop into the reader and put 



HALTS 
7700 

7701 



EXPLANATION 

A = error data. 

Put the computer in run. 

A = correct data. 

Put the computer in run. The reader will search for the 
correct information and then continue to read at a variable 
rate until an error occurs. 
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Q.A. VARIABLE SPEED READER 



Read one 

frame from 

tape 



Halt with 
data read 

displayed 
in A 



Jump to 
loc. 0006 



0006-0007 



Add 1 to variable 
at toe. 57 and 
compare with 
data read 



0050-0052 



Put 

- back — 

in run 



Sel. stop with 
correct data 
displayed in A 



Put 
— back - 
in run 



Read frame from 
tape and compare 
with cont of 
loc. 0057 



Search for correct data 



*{ Compares 



»l Compares 






0011-0012 



Compare content 
of loc. 0057 

with mask 
at loc. 0060 



Compares 



Yes 

0014-0015 



Load loc. 0057 
with 777 6 (-1) 



Load A with 

cont. of 0061 

35XX 



Increase A 
by 1 



Delay 



No [ Is A 

positive 



0021-002 3 



Decrease 

cont. of loc, 

0072 by 1 

(original 0600) 



Is loc. 0072 \Yes 
equal to 



Restore cont. 

of loc . 0072 

to 0600 



After 6 passes 
0072 is 0000 



Is loc. 0072 \Yes 
equal to 



Restore cont. 

of loc. 0025 

to 2062 



Restore cont. 

of loc. 0072 

to 0600 



0030 



Add 1 to cont. 
of loc. 0025. 
Change instr. 
from 2062-70 



0031-0032 



Increase cont. 
of loc. 0061 
by 0040 
(orig. 3500) 



Is cont. 

of loc. 0061 

positive 



Restore cont. 

of loc. 0061 

to 3500 



Is A equal \ Yes 



A is 

never equal 

to zero 



J 



This test reads 11 binary counts at different speeds 
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T-037 

QUALITY ASSURANCE VARIABLE SPEED READER 



0000 


7505 




0001 


7600 




0002 


1*056 




0003 


7001* 




oooi* 


0006 




0005 


1*102 




0006 


51*57 




0007 


3^56 




0010 


6131* 




0011 


2057 




0012 


31*60 




0013 


6103 




001U 


0501 




0015 


1*057 




0016 


2061 




0017 


0601 




0020 


6601 




0021 


2072 




0022 


0701 




0023 


1*072 




002k 


6521* 




0025 


2062 




0026 


1*072 




0027 


6010 




0030 


5^25 




0031 


2075 




0032 


5061 




0033 


6633 




0034 


2071* 




0035 


1*061 




OO36 


6536 




0037 


2073 




OOUO 


1*025 




OOUl 


2071 




001*2 


1*072 




001*3 


6512 




001*1* 


2056 




001*5 


7700 




001*6 


2057 




001*7 


7701 




0050 


7505 




0051 


7600 




0052 


31*57 




0053 


6503 




OO5I* 


61*51* 




0055 


1*102 




OO56 


0000 




0057 


0000 
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0060 


0377 


0061 


3500 


0062 


0600 


0063 


0600 


006U 


0600 


0065 


0600 


0066 


0600 


0067 


0600 


0070 


0000 


0071 


0600 


0072 


0600 


0073 


2062 


0071 


3500 


0075 


ooUo 


0076 


0071* 


0077 


222U 
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NUMBER: T050 

TITLE: Manual Variable Speed Reader Test 

CATEGORY: 160 -A 

MINIMUM EQUIPMENT NEEDED: 160 -A 

PURPOSE 

This test will check the clutch, brake adjustments, feed hole and information bias 
settings. 

DESCRIPTION 

This program is a manual control of the delay between picking the clutch on the reader. 
By moving the SLJ switches while the program is running causes various delays to be 
inserted between frames at random. 

Any number is put into Register A. This number is the basic delay. A 0001 in Register 
A is equivalent to a 12.8 us delay. The number in Register A is now effectively multi- 
plied by the SLJ switches. If SLJ4 and SLJ2 are down the delay between 76 instructions 
is 6 times the basic delay in Register A. 

OPERATING INSTRUCTIONS 
LOAD INSTRUCTION: Paper Tape 
LOADING ADDRESS: 0000 
TERMINAL ADDRESS: 0077 
CHECK SUM: 6755 

STARTING ADDRESS: 0000 
ADDITIONAL INSTRUCTIONS: 125-52 loop is required 

HALTS EXPLANATION 

0016 Number read is in Register A. A "52" should have been read. 

0027 Number read is in Register A. A "125" should have been read. 
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LOC 
OOOO 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0060 
0061 
0062 



4070 

7500\ 

4102/ 

2200") 

5252 > 

4072J 

7600" 

0752 

6011 

6503. 

7600 

0752 

6016 

0652\ 

0000 J 

7101\ 

0003J 

7600^ 

3600 > 

0125J 

6006 

3200 

0125 

0000 

710: 

0003. 

0400 

7710 

0036 

0701 

7720 

0041 

0702 

7740 

0044 

0704 

6007 

4071 

2070 

0701 

6501 

5471 

6504 

2072 

6304 

4472 

7101 

0021 

4472 

7101 

0012 



*3J 



Store delay 
Select reader 

Insures that frame counter is correct 
Insures first frame read is 52 



Check if frame is 52 
Frame is 52 go to delay* 
Error stop 
Frame read is in RA 

Insures proper start after an error stop 



Check if frame is a 125 
125 read go to delay* 

Error stop 125 should have been number 

Recover after error 

* 

Delay X 1 
Delay X 2 

Delay X 4 

Store delay multiplier 
Load delay 



Do delay again 
Load frame checker 
NFJ if last frame was 125 
Shift frame checker 
Jump to input for 125 

Shift frame checker 

Jump to 5 2 frame 
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0063 
0064 
0065 
0066 
0067 

0070 Delay 

0071 Delay multiplier 

0072 5252 
0073 

0074 
0075 
0076 
0077 
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NUMBER: 



T074 



TITLE: Q.A. Block Store Test 

CATEGORY: 160-A 

MINIMUM EQUIPMENT NEEDED: 160-A 

PURPOSE 
This program tests the block store (BLS) instruction in various memory locations. 

DESCRIPTION 

1. See flow chart. 

2. The program stores 12 different constants in blocks of 525„ then checks the 
pattern and with no selective stops in the up position it is self-looping. After 
the test pattern has been stored and checked the complete pattern is destroyed 
by storing 4264 throughout the buffer bank. A check of this number is then 
accomplished. 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 



OPERATING INSTRUCTIONS 

Paper Tape 

0000 

0175 

0160 



ADDITIONAL INSTRUCTIONS: SLS switch 1 up, sweeps memory bank under test. 
This will cause the program to stop after the pattern has been block stored in memory. 



HALTS 
0140 



0024 



EXPLANATION 

Error, A equal to error data. 
Sweep 0055 Dir bank for failure. 
Put computer in Run. 
A equal to correct data. 
Restart at 0000. 

Error after storing 4264. 

Sweep 0021 for memory location of failure. 

If no error occurs, the original test pattern will be 

restored and checked. 
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Test No. 1 will test the BLS instruction in Memory Bank. 



LOAD INSTRUCTION: 
ADDITIONAL INSTRUCTIONS: 



0000 in Rel bank 

1) Set Rel and Dir bank to 0. 

2) Set Bfr and Ind bank to 1. 

3) 0000 Run from Rel bank 0. 

4) If error occurs master clear Run 0000. 

5) For halt see 0140 above. 



Test No. 2 will test the BLS instruction in Memory Bank 0. 



LOAD INSTRUCTION: 
ADDITIONAL INSTRUCTIONS: 



0000 in Rel bank 1 

1) Set Rel and Dir bank to 1. 

2) Set Bfr and Ind bank to 0. 

3) 0000 Run from Rel bank 1. 

4) If error occurs master clear Run 0000. 

5) For halt see 0140 above. 



Test No. 3 will test the BLS instruction in External Memory. 



LOAD INSTRUCTION: 
ADDITIONAL INSTRUCTIONS: 



0000 in bank X 

1) Set Dir = Rel. 

2) Set Bfr 4 Dir and Rel. 

3) Set Ind = Bfr. 

4) 0000 Run from Rel bank. 

5) If error occurs master clear Run 0000. 

6) For halt see 0140 above. 
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BLOCK STORE TEST 



00000 



00010 



00020 



00030 



00040 



00050 



6036 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0501 
4300 
0106 
0003 
2051 
0100 
0004 

2100 
0000 
3451 
6002 
0000 
5704 
3700 
6507 

0400 
4310 
6004 

7575 
0000 
0000 
0400 
4053 

4055 
4062 

2057 
4056 
4063 
2060 
4240 
4272 

2061 
4264 
6126 
0000 
0522 
0000 
0525 
0525 



Oper. error 

Error 0105 B. busy 

Error 0106 B. busy 

Error 0100 B. busy 



Set test bank to 4264 

Set Buffer Exit 
Jump adr. 
(M.L. 0051) 
Block Store 
Jump adr. 

Check Pattern 



Error-Halt 

Increase test (1) count 



Restore test (1) addr. 



Check sum correction 



Reset variables 



Check 0153 instruction 

Constant 

Variable 

Variable 

Constant 
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(BLS test Cont. 



> Constants, Buffer Data. 



00060 2064 Constant 

3464 Constant 

0000 Variable BER. 

0525 Variable BXR. 

0000 

7777 
1111 
2222 

00070 4444 

5252 
2525 
3131 
1313 
1234 

7650 

6666 s 

00100 2062 

0105 Load BER. 

0002 Jump adr. B. busy 
2063 

0106 Load BXR. 

0003 Jump adr. B. busy 
2064 

0100 BLS. 

00110 0004 Jump adr. B. busy 
5703 
0400 
0162 
0107 
6002 

0000 Error Halt (0162) 
2057 

00120 5063 

0503 Check BER. limit 7774 
3462 

6523 
2316 
0714 

4320 Reset variable instruction to orig, 

o4oo 

00130 4o62 Reset BER. to orig. 
2057 

4063 Reset BXR. to orig. 
7701 Stop Pattern completed. 
2155 
3464 

6005 

2155 
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(BLS test Cont.) 



00ll*0 OOOO 
2061* 
7700 
5^55 
3^56 
6511 
5711 
5706 

00150 2057 
5056 

3U54 
6517 
oi*oo 

1+055 
051** 
5322 

00160 0514 
5320 

2057 

1*056 

0153 
0101 

0701 

3^53 



00170 



61*71 
0000 

oi*oo 
6674 

0000 
2010 



Error Halt, Error Data in "A" 
Correct Data in W A W 



Change variable instruction. 
Change variable instruction. 



Check BER Unit 

Reset variable 

Reset variable instruction. 

Reset variable instruction. 

Reset variable 



Error Halt (0153 Inst.) 
Jump back to resume test. 
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From 
loc. 0032 



0000 



Start 




CT> 
O 



05 







0036 




0037 




0400 LDN 


—9 


4053 STD 


v Yes ' 


Load A 
with 0000 


Store at loc. 

0053 
Set variable 

to 0000 


) 





Not Used 



0040 




0041 




0042 




0043 


4055 STD 


— » 


4062 STD 


—9 


2057 LDD 


— » 


4056 STD 


Store at loc. 

0055 
Set variable 
to 0000 


Store at loc. 

0062 

Set variable 

to 0000 


Load A with 
content of 0057 

(A = 0525) 


Store at loc. 

0056 
Set variable 
to 0525 



0044 



4063 STD 



Store at loc. 

0063 

Set variable 

to 0525 



0045 



0046 



2060 LDD 



Load A with 
cont. of 0060 

A = 2064 



0047 



0050 



4240 STF 



Store at loc. 

0106 

Set variable 

to 2064 



4272 



STF 



Store at loc. 

0141 

Set variable 

to 2064 



2061 LDD 



Load A with 
cont. of 0061 

A = 3464 



0051 



0100 



4264 



STF 



Store at loc. 

0135 

Set variable 

to 3464 




0101 



0105 



ATE 



Load Bffr. 
Entr. Reg. 



Error-Stop 
P = 0002 *~ 



Bffr. Busy 
* 



0602 



Jump to loc. 

0002 
forced 71 instr. 



0103 



0104 



0106 



0107 



2063 



LDD 



Load A with 
cont. of 0063 

A = 0525 



0106 ATX 



Load Bffr. 
Exit Reg. 



2064 LDD 


— » 


0100 BLS 


Load A with 
cont. of 0064 

A = 0000 


Block store 
cont. of A 



multiple of 0525 



Error-Stop 
P = 0003 * 



Bffr. Busy 



0105 



Jump to loc. 

0003 
forced 71 instr. 



Constants of loc. 
0064-0077 



Error-Stop 
P = 0004 ' 



Bffr. Busy 

4 



0110 



Jump to loc. 

0004 
forced 71 instr. 




0111 




0112 




0113 




0114 




5703 AOB 


— » 


0400 LDN 


— » 


0162 STE 


— » 


0107 ETA 




Add 1 to cont. 
of loc. 0106 

2064 + 


Load A with 
0000 


BER to loc. 

62 and A to 

BER 


BER to A 


— » 










BER = 0000 







0117 



0120 





2057 LDD 


— 9 


5063 RAD 


>Yes 


Load A with 
cont. of 0057 

A = 0525 


Add A to cont. 
of loc. 0063 


1 



0121 




0122 




0503 LCN 


—9 


3462 SBD 




Load A with 
compl. of 0003 

A = 7774 


Subtr. from A 
cont. of 0062 


J 


*\ 



0124 



0123 



Error-Stop 
A + P = 0116 
01 62 failed 




2316 



LDB 



Load A with 

cont. of loc. 

0106 

A = 2100 



0125 



0714 SBN 



Subtr. 0014 
from A 

A = 2064 



05 

o 



03 



0126 




0127 




0130 




0131 




0132 


0400 LDN 


— » 


4062 STD 


— » 


2057 LDD 


— » 


4063 STD 


Load A 
with 0000 


Store at 
loc. 0062 


Load A with, 
oont. of 0057 

A = 0525 


Store at 
loc. 0063 



0133 
7701 SLS 



Stop if Sel. 
Stop 1 is up 
otherwise P + 1 



Restore original 
cont. of loc. 0106 



Restore original 
cont. of loc. 0062 



Restore original 
cont. of loc. 0063 



0134 
2155 LDI 



Load A with cont 
of loc. stored at 
0055 



0135 
3404 SBD 



Subtr. cont. 
of loc. 0064 

A = 0000 



Check data stored 
E will change from 
64 to 77 




0146 



0147 



0150 





5711 AOB 


— » 


5706 AOB 


— » 


2057 LDD 


\ Yes 


Add 1 to 
cont. of 0135 


Add 1 to 
cont. of 0141 


Load A with 
.cont. of 0057 

A = 0525 


I 



0151 



5056 BAD 



Add A to 
cont. of 0056 



Check 525 locations 



Update check instructions for check 
of next constant stored 



Cont. of 56 will be 
multiples of 525 



Put back in run 



0142 



Load with cont. 
of loc. stored 
at 0055 



Error- stop A 

contains 
error- data 



Put back 



2064 LDD 



Load A with 



►in run-*| cQnt Qf 0Q64 
E will change 



From 64 to 77 



7700 



HALT 
A contains 
correct data 



0152 



3454 



SBD 



Subtr. from A 

cont. of 0054 

(0522) 



0153 



Check or 7774 
locations are checked 




0154 



0155 



0156 



0400 



LDN 



Load A 
with 0000 



4055 STD 



Store at 
loc. 0055 



0514 LCN 



Load A with 
compl. of 0014 

A = 7763 



0157 




0160 




0161 




0162 


5322 RAB 


— » 


0514 LCN 


— > 


5320 RAB 


— » 


2057 LDD 


Add A to 
cont. of 0135 

A = 3464 


Load A with 
compl. of 0014 

A = 7763 


Add A to 
cont. of 0141 

A .» 3464 


Load A with 
cont. of 0057 

A = 0525 



01 63 



4056 



STD 



Store at 
loc. 0056 



Restore original cont. of 0055 



Restore cont. of loc. 0135 



Restore cont. of loc. 0141 



Restore cont. of loc. 0056 



0164 



0165 



0153 STP 


— » 


0101 PTA 


Store 0164 
at loc. 0053 

A ■ 0164 


Transfer 
P to A 

A = 0165 


Ch 


2Ck 


0153 instruction ( 



0166 




0167 



0170) 



3453 



SBD 



Subtr. from A 
cont. of 0053 



0170 



0076 




Yes 




Yes 



0171 



0172 



0000 



Error- stop 
0153 instr. 
failed 



Put back 
■*in run -5 



0400 



LDN 



Load A 
with 0000 



173 



Yes 




-> Not used 



0011 



0501 



LCN 



Load compl. 
of 0001 in A 

A = 7776 



0012 




0013 


4300 STS 


— > 


01 06 ATX 


Store A at 
loc. 7777 


Load Bffr. 
Exit reg. 
with 7776 



Error- Stop 
P = 0003 * 



Bffr. busy 
_J 



0014 



Jump to 
loc. 0003 

forced 71 instr. 



0015 




0016 




0020 


2051 LDD 


— 9 


0100 BLS 




2100 LDM 


Load A with 
cont. of 0051 

A = 4264 


Block store 
cont. of A 


Load A with 
cont. of XXXX 

A = 4264 








" 






1 
Bffr. busy 

1 










0017 


i 




Error-Stop 
P = 0004 * 


Jump to 
loc. 0004 

forced 71 instr. 















0022 
3451 SBD 



Subtr. cont. 

of loc. 0051 

from A 



o 
i 

> 

CO 



0025 




0026 


5704 AOB 


— > 


3700 SBS 


Add 1 to the 
cont. of 0021 


Subtr. cont. 
of 7777 from 

A 



002 7 

NZB 
A = 
6507 



No 





0030 




0031 




0400 LDN 


— » 


4310 STB 


es 


Load A 
with 0000 


Store A at 
loc. 0021 



0032 




Not used 



To loc. 
0036 



002 3 




No ERR 
* Aj&O 



P = 0024 



Yes 



After Sel. Stop 1 




memory contains 




From 
loc. 


Data 


To 
loc. 


0000 


0000 


0524 


0525 


7777 


1251 


1252 


1111 


1776 


1777 


2222 


2523 


2524 


4444 


3250 


3251 


5252 


3775 


3776 


2525 


4522 


4523 


3131 


5247 


5250 


1313 


5774 


5775 


1234 


6521 


6522 


7650 


7246 


7247 


6666 


7773 



NUMBER: T075 

TITLE: Memory Bank Selection Test No. 1 

CATEGORY: 160- A 

MINIMUM EQUIPMENT NEEDED: 160-A 

PURPOSE 

This program will check 160-A computer execution of memory bank selections for 
banks and 1 only. 

DESCRIPTION 
The program will follow a binary count of bank selection as follows: 



Buffer 


Direct 


Indirect 


Relative 











1 








1 











1 


1 





1 









continuing to 17. Constants used for arithmetic operations are stored in Memory 
Location through 7 in bank 0, and 10 through 17 in bank 1. 



LOAD INSTRUCTION: 

LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 
STARTING ADDRESS: 



OPERATING INSTRUCTIONS 

Paper Tape 
First Routine 



0000 in bank 

0450 

0160 

0000 



Second Routine 
0000 in bank 1 

0350 

0160 



ADDITIONAL INSTRUCTIONS: 1) Master clear set "A" to 0100 

2) Put the computer in Run 



HALTS 

P = 0441 Z = 7700 

P = 0220 Z = 7701 



EXPLANATION 

No SLS switches up program will loop 4096 times 

SLS 1 switch up program will check bank selection instructions 
through 7 (see description) 
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HALTS 

P = 0422 Z = 7702 



EXPLANATION (Cont'd) 

SLS 2 switch up bank selection instructions 10 through 17 
will be checked 

Each error halt is preceded by a bank selection to "A" 
instruction 

Program annotation shows the correct "A" register display 
(bank selection) for each error halt 
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MEMORY BANK SELECTION TEST 

BANK 



OOOOO 0070 Set Rel & Jump to ML 0100 
2552 
5225 
0000 
0000 
02U0 
0001- 
0002 

00010 0011 
0120 
0010 
0000 
0000 
0000 
0000 
0000 

00020 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00030 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooUo 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 



ooo5o oooo 

0000 



0000 
0000 
0000 
0000 
0000 
0000 160- A: 71 



00060 


0000 








0000 








0000 








0000 








0000 








0000 








0000 








0000 






00070 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 




• 


00100 


2776 


LDC 


(Rel) 2552 




3002 


Add 


Dir ML 0002 




6003 


Zero Jump 




0130 


Correct Data 0000 




0000 


Error Halt 




2107 




5225 




0105 


ATE 






0075 


Buf 


Busy Adr, 


00110 


oUoo 


clr. 


A 




0107 


ETA 


5225 




3106 


Add 


Ind to ML 0001 




600U 


Zerc 


» Jump 




0130 


Correct Data 0000 




0000 


Error Halt 




0100 


Constant 




2301 






00120 


0011 
0130 


Set 


Rel to 1 and Jump to ML 0100 




0000 


Error Halt No Jump Correct Data 0001 




0000 








0000 








0000 








0000 








2552 






00130 


2301 








3002 


ML 0002 Bank ft 




6003 








0130 


Correct Data 0010 




0000 


Error Halt 




0107 


ETA 


5225 




3110 


Add 


Ind Bank 1 ML0011 2552 




6003 


Zero 


Jump 
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ooito 



00150 



00160 



00170 



00200 



00210 



0130 
0000 
2011 
0031 
0130 
0000 
0140 
2552 

2002 
3302 
6003 
0130 
0000 
0107 
3106 
6003 

0130 
0000 

2311+ 
0051 

0000 

0170 
2552 
0061 

2103 
3303 
6003 
0130 

0000 
2010 

3011 
6504 

2010 

0105 

0075 
0500 

OI67 
2067 
3011 
6003 

0130 
0000 

2325 
0071 

0000 
0000 
0000 
0000 



Correct Data 0010 

Error Halt 

Load Dir Bank Jump adr. 0120 

Set Ind & Rel & Jump 

Error Halt. No Jump. Correct Data 0011 

Constant 

Load Dir Bank 

Adb - Bank 

Zero Jump 

Correct Data 0000 

Error Halt 

ETA. 5225 

Add Ind ML 0001 - 2552 

Zero Jump 

Correct Data 0000 
Error Halt 
Load Jump Adr. OlUO 
Set Rel & Dir & Jump 
Error Halt. No Jump 

Set Dir & Ind to 1 

Ld. Bankl. (5225) 

Adb. 

Zero Jump 

Correct Data - 0110 

Error Halt 

(5225) 

Non Zero Back to Error Halt 

5225 

ATE 

Buf Busy Adv. 

LCN 00 

ST. E. in ML 0067 A to BER 

(5225) 

Add Dir Bankl* 

Zero Jump 

Correct Data 0110 

Error Halt - (0167) 

Load Jump Adr (0170) 

Set Rel Ind, Dir to 1 & Jump 

Error Halt. No Jump 
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00220 



00230 



002k) 



00250 



00260 



00270 



TT01 
7101 
0300 

0000 
0000 
0000 

3106 

0000 

2552 
5225 

0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 



Stop - 0-7 completed. 
Jump to resume test. 
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00300 



00310 



00320 



00330 



003to 



00350 



0141 
2350 
3001 
6003 
0130 

0000 

2107 
0105 

0075 

0^00 

0107 
3106 
600^ 
0130 

0000 
0220 

2301 

0011 

0130 

0000 
0000 
0000 
0000 

2552 

2301 
3002 
6003 
0130 

0000 

0107 
3110 
6003 

0130 

0000 

2005 
0031 
0130 

0000 

0260 

2552 

2002 

3302 
6003 
0130 

0000 

0107 
3106 
6003 



Set Buf to 1, 

$225 

2$52 Bank 

Correct Data 1000 

Error Halt 

LDI Bank 5225 

ATE 

Buf Busy Adr. 
CIR - A 
ETA 

ADI Bank 1 
Zero Jump 
Correct Data 1000 
Error Halt 
Jump Adr. 

Load Jump Adr. 
Set Rel k Jump 
Correct Data 1001 
Error Halt - No Jump 



2552 

Add Bank 
Zero Jump 
Correct Data 1010 
Error Halt 
ETA - 5225 
Bank 1 
Zero Jump 

Correct Data 1010 
Error Halt 
Load Jump Adr. 02U0 
Set Rel & Ind & Jump 
Correct Data 1011 
Error Halt. No Jump 
Jump Adr. 
Constant 

(5225) 

Adb 

Zero Jump 

Correct Data - 1000 

Error Halt 

ETA 5225 

Bank - ML 0001 

Zero Jump 
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00360 


0130 


Correct Data 1000 




0000 






231U 


Load Jump Adr - 0260 




0051 


Set Rel & Dir St Jump 




0000 


Error Halt - No Jump - Correct Da 




0310 






2552 






0061 


Set Dir & Ind to 1. 1110 


00370 


2103 
3303 


5225 (Bank 1) 




6003 


Zero Jump 




0130 


Correct Data 1110 




0000 


Error Halt 




2010 


5225 




3011 






6501* 


Jump Back to Error Halt 


ooUoo 


2010 


5225 




0105 


ATE 




0075 


BFR Busy Adr. 




olloo 


0167 




0167 


0U00 




2067 


5225 




3011 


2552 Bank 1 




6003 


Zero Jump 


OOlilO 


0130 


Correct Data 1110 




0000 


Error Halt 




2325 


Load Jump Adr 




0071 


Set Rel, Dir, Ind & Jump 




0000 


Error Halt - No Jump 




0000 






0000 






0000 




00U20 


7710 

0U30 


Set Stop to Test Banks 2 & 3 




7702 


Set Stop - Pass through completed 




011*0 


Set Efr = 




0130 






6011 


All Bank Controls » 




0000 


Error Halt 




0100 




00U30 


2301 






0072 


Continue test - Banks 2 & 3 




0000 






0000 






0000 






6011 






5703 






6002 
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- 1101 



00440 7102 
7700 
0100 
0000 
0000 
0000 
0000 
^537 

001*50 0000 
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MEMORY BANK SELECTION TEST 

BANK1 



lOOOO 0000 

• 

10000 0000 
01^7 
0002 
0010 
0011 
0000 
0000 
0000- 

10010 5225 
2552 
0000 
5220 
5225 
0000 
0000 
0000 

10020 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

10030 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

looto 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

10050 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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ioo6o 



10070 



10100 



10110 



10120 



10130 



0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0130 






0000 






0000 






2001 


LDD Bank - 2552 


3371 


AdffB - ML 0010 


Bank 1 


6003 


Zero Jump 




0130 


Correct Data - 


- 0001 


0000 


Error Halt 




0107 


ETA 5225 




3106 


Ad Ind to Bank 


ML 0001 


6003 


Zero Jump 




0130 


Correct Data - 


0001 


0000 


Error Halt. 




2302 


Load Back Jump 


Adr. 


0021 


Set Ind to 1 




0010 


Set Rel to & 


Jump 


0000 


Error Halt. No 


Jump 


0150 


Constant 




2552 


Constant 




2301 






3112 


Add to Bank 1 


ML 0010 


6003 


Zero Jump 




0130 


Correct Data 0011 


0000 


Error Halt 




0107 


ETA ^225 


/ 


3307 


ML C117 Bank 1 


6003 


Zero Jump 




0130 


Correct Data 0011 


0000 


Error Halt 




00^0 


Set Dir - 




2315 


Load Jump Adr. 


0150 


0030 


Set Ind *t Rel and Jump 


0167 


Constant 




5225 


Constant 




5220 


Constant 
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(also Jump Adr.) 



loiUo 


2iill 


LCD - Bank 1 (5225) 






3322 


Add Back - Bank 1 






6003 


Zero Jump 






0130 


Correct Data 0101 






0000 


Error Halt 






2102 


Bank 5225 






0106 


ATX 






0075 


BFR Busy Adr. 




10150 


2311 


LPB 5220 






0105 


ATE 






0075 


0075 Jump Adr Bfr Busy 






2315 


(5225) 






0100 


Bis 






0075 


BFR Busy Jump 






2513 


LCI - Bank 






32liO 


ADF 




10160 


6003 


Zero Jump 






0130 


Correct Data 0101 






0000 


Error Halt 






2326 


Load Jump adr (0167) 






0050 


Set Mr — Rel & Jump 






0000 


Error Halt. No Jump. Correct Data 


0000 




0220 








2552 






10170 


2011 


(2552) 






3333 


5225 (ML 0136) 






6003 


Zero Jump 






0130 


Correct Data 0111 






0000 


Error Halt 






2010 


5225 






0105 


.ATE 






0075 


BFR Busy Adr. 




10200 


OiiOO 


C1R A 






0107 


ETA 5225 






3313 


2552 






6003 


Zero Jump 






0130 


Correct Data 0111 






0000 


Frror Halt 






2320 


Load Jump Adr. 0220 






0070 


Set Rel, Ind, Dir & Jump 




10210 


0000 








0000 








0000 








0000 








0000 








0000 








0330 








5225 
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10220 2001 2552 

3302 5225 

6003 Zero Jump 

0130 Correct Data 1001 

0000 Error Halt 

0107 ETA 5225 

3106 Bank - 2552 

6003 Zero Jump 



10230 



0130 
0000 
231^ 
0021 
0010 
0000 
0350 
2552 



Correct Data - 1001 

Error Halt 

Load Jump Adr. 

Set Ind to 1 

Set Rel to 9 t Jump. ML 0330 Bank 

Error Halt. No Jump. Correct Data 1010 



10240 



2301 

3112 5225 (ML 10 Bank 1) 

6003 Zero Jump 

0130 Correct Data - 1011 

0000 Error Halt 

0107 ETA - 5225 

3307 

6003 Zero Jump 



10250 



10260 



10270 



0130 
0000 
0040 

2315 
0030 
0000 

0367 
5220 

2kll 
3322 
6003 
0130 
0000 
2102 
0105 
0075 

0400 
0107 

3333 

6002 
0000 
2102 
0106 
0075 



Correct Data - 1011 

Error Halt 

Set Dir 

Load Jump Adr (0350) 

Set Rel \ Ind h Jump 

Error Halt - No Jump 



Bank 1 (5225) 

Zero Jump 

Correct Data - 1101 

Error Halt 



- Correct Data 1000 
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10300 


2322 


(0367) 




0050 


Set Dir & Rel k Junr 




0000 


Correct Data 1000 




0000 


Error Halt 




0000 






0000 






0U20 






2552 




10310 


2010 
3302 
6003 


5225 




0130 


Correct Data - 1111 




0000 


Error Halt 




2010 


5225 




0105 






0075 




10320 


oUoo 

0107 
3313 
6003 






0130 


Correct Data - 1111 




0000 






2320 


Load Jump Adr 




0070 


Set R, I, D, k Jump 


10330 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 




103U0 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 




10350 


0000 
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NUMBER: TO 7 6 

TITLE: Memory Bank Selection Test No. 2 

CATEGORY: 160 -A 

MINIMUM EQUIPMENT NEEDED: 160 -A 

PURPOSE 

The program will check 160 -A computer execution of bank selections for any memory 
bank available. 



OPERATING INSTRUCTIONS 



In Rel Bank X 



LOAD INSTRUCTION: Paper Tape 
LOADING ADDRESS: 0000 
TERMINAL ADDRESS: 0300 
CHECKSUM: 0160 

STARTING ADDRESS: 0000 

ADDITIONAL INSTRUCTIONS: Master clear Set A to the Indirect Bank desired to test. 

Put the computer in Run. 



HALTS 

P = 0002 
A = 0000 



P = 0160 



EXPLANATION 

Set the "A" register to Rel and Dir bank desired to test. 

Ind bank setting / Rel or Dir bank setting. 
Put the computer in Run. 

SLS 4 switch up, pattern will be laid down and the computer will stop 
prior to checking the pattern. 

SLS 1 or 2 switch up pattern will be checked. 

Approximate test time is 12 seconds. 

At any of the above stops the computer may be put back into run to 

continue test. 

With no SLS up the program is self looping. 



02 57 Error in testing the pattern. 

Put the computer in Run. 
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HALTS EXPLANATION (Cont'd. ) 

0263 005X error in A. 

Put the computer in Run. 

0266 005X correction in A. 

Put the computer in Run. 

0273 Error data displayed in A. 

Put the computer in Run. 

0275 Correct data display in A. 

Put the computer in Run. Resume test. 
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Memory Bank Selection Test #1 



00000 



00010 



00020 



00030 



00040 



00050 



4070 
0400 

7700 
4071 

0400 

4o6i 
2070 
0620 

4201 

0020 

2200' 

2300 

4100 

7775. 

2071" 

06l0 

4100 

7776 
2071 
0650 

4202 
2062 
0050 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

7550 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000" 

0000 
0000 
0000 
0000 
0000 
0000 
0000 



Indirect Bank Setting 

Relative and Direct Bank Setting 
Clear "P" Test Adr. 



Set Indirect Bank 
Store 2300 in ML. X7775 

Store 001X in ML. X7776 



Set Rel. and Ind. and Jump to Test, 
Error Halt. No Jump, 



Check Sum Correction. 



Test Area 
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ooo6o 



00070 



00100 



00110 



00120 



00130 



0004 
0000 
0100" 

0160 

0170 
2300 

0010 
0040 

0000 
0000 

4o6o 

0150 I 
0157 J 

0150 
4050 1 
4057 J 

0400 

4050 
5701 
3472 
6504 _ 
2076 
4305 J 

0400 



4203 

2075 
4100 
0000 
0403 

5302 
6505 
5603 

2065 

4100 
0000 
0403 

5302 
0602 
6506 
4305. 

2071" 
4215 
2066 
5213 

0402 
4203 
2210 
4100 



Jump Adr. 
Variable »P" Adr. 



Constants 



Variable (5"X Test Cell) 
Constants 



Clear Test Area 



Restore Test Area Clear 



Store 015X in Ind. Bank. 



Store 2300 in Ind. Bank 



Store Set Rel. and Jump in Ind. Bank. 
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00140 



00150 



00160 



00170 



00200 



00210 



0000 

0403 
5302 
0601 
6506 
6004 
0000 
0000 

0000 
2064 
4300 
2066 
4205 
2070 
5203 
2061 

7704 
0000 
0000 
0000 
2060 
2050 
0000 
0000 

2071 
0620 
4201 
0020 
2100 
0050 
6106 
5702 

5'ii 
0760 
6506 
6015 
2075 
0277 
3711 
6150 

2100 
0050 
3461 
6144 

5717 
5704 
0760 
6523 



Store Set Rel. and Jump in Ind. Bank 



> Spares 
\ Set ML. 7777 to 01 70 

Form Set Rel. and Jump Instruction 



> 



Set Rel. and Jump to Test 
Error Halt - No Jump 



Constants 



Set Ind. 



> Test 005X ML 
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00220 



00230 



00240 



00250 



00260 



00270 



00300 



0450 
4324 
4311 
0403 
5061 
6006 
2070 
0630 

4202 
2061 
0030 
2070 
0620 
4201 
0020 
5475 

0277 
0760 
6104 
2073 
4075 
7707 
2071 
0630 

4202 
2060 
0030 
0000 
0000 
0000 
0000 
0000 

2363 
0277 
4210 
0000 
2075 
0277 
7700 
0001 

0001 
2100 
0050 
0000 
2061 
7700 
0400 
7101 

0004 



> 



Up Date "P M Test Cell 



Up Date 005X Test Cell 



Restore 005X 

Selective Stop Test Completed 



|> Return to Test 



Error Halt 



Display 5X error 

Display Correct 5X 
S Spare 

i> Display Error Data 
> Display Correct Data 

Return to Test 
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NUMBER: T999 

TITLE: Quality Assurance Fortran Test 

CATEGORY: 160-A, 161 

MINIMUM EQUIPMENT NEEDED: 160-A, 161 

PURPOSE 

The program check the ability of the 160-A computer to run a known Fortran 
problem. 

DESCRIPTION 
See section (1. Explanation of answer). 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

1. Compiler I (AC 1.00 - IE 

2. Compiler II (AC1.00 - 2D 

3. Compiler III (AC 1.00 - 3D 

4. Little Lilley Source (program "LATE") 

5. Little Lilley Input (MOD XX) 

EXECUTION 

1. LOADING ADDRESS: Load Compiler I from (P) = 0000. 
CHECK SUM: (A) = 0000, (P) = 7776. 

2. Master clear. Turn punch and read on and eject some tape from 
the punch by pressing the "Tape Leader" button. 

3. Return all jump and stop keys to neutral. 

4. Insert the Little Lilley source paper tape into the reader. 

5. Run from (P) = 0000. 
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Execution (Cont'd) 

6* If no errors have occurred, a stop will occur at (P) = 3775 
and (A) = 0000. 

DO NOT CLEAR! 
If a stop other than (P) = 3775 occurs, consult publication BF01 
section III. A. 3. to determine the type of error that occurred. 

7. Insert Compiler II in the reader and run from (P) = 3775. 

8. A stop will occur at (P) = 0252 when Compiler II has finished. 

9. Master Clear. Remove the Binary object tape from the punch. 

10. Load Compiler III from (P) = 0000. 

a. Check sum: (A) = 0000, (P) = W7. 

11. Master Clear. Insert the binary object tape into the reader. 

12. Run from (P) * 0000. 

13. A stop will occur at (P) = 0151. 

DO NOT CLEAR! 
If a stop occurs at (P) = 0051 a parity error was detected. Refer 
to publication BF01 section III.B.2. 

Ik. Insert the Little Lilley input tape into the reader. 

15. Run from (P) s 0151. 

16. If no error* have been detected; a stop will occur at (P) = 11^2 
and (A) = 4Wk 

a. A stop at (P) = 0576 is a Compiler error. Recompile. 
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Execution (Cont'd) 

17. Remove the answer tape from the punch. 

18. The answer data taoe can now be typed out and conroared with the 
true answer. (See note 1) 

NOTE 1. Typical Typeout Program 



M.L. 


INSTR. 


COMMENT 


0000 


7500 


EXF. 


0001 


4102 


SEL. Reader 


0002 


7600 


INA 


0003 


64-01 


ZJB Wait for Data 


0004 


4017 


STD Store Data 


0005 


7500 


EXF. 


0006 


4210 


SEL. Type 


0007 


2017 


LDD Load Data 


0010 


7677 


OTA Output Data 


0011 


7500 


EXF 


0012 


4102 


SEL. Reader 


0013 


7600 


INA 


0014 


4017 


STD STORE DATA 


0015 


6510 


NZB Continue Until Data=0 


0016 


7700 


End 


0017 


xxxx 


Data Storage 
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LITTLE LILLEY ANSWER (mod. 01) 

1. Explanation of answer. 

A. A HISTOGRAM is plotted under the following 
conditions: 

1. Range of numbers 

a. minimum : 001.00 

b. maximum ; ^00.00 

2. Steps (for ranges) 

a. intervals of 020.00 

3. Horizontal position 
a. 1% to 60$ 

k. Results 

a. The HISTOGRAM gives the percent of 
numbers (from the Little Lilley input 
tape) that fall within a specific range set. 

b. Mean 

The mean of all numbers on the input tape. 

c. Sigma 

The maximum variance from the mean. 
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LITTLE LILLEY Mod. 01 
Answer 



q. a. 160 -a fortran test 
program little lilley mod. 01 



10 20 30 UO 50 60 



1.00- 20.00 

21.00- UO.OO x 

Ul.OO- 60.00 xx 

61.00- 80.00 xxx 

81.00- 100.00 xxxx 

101.00- 120.00 xxxxx 

121.00- lUO.OO xxxxxx 

11*1.00- 160.00 xxxxxxx 

161.00- 180.00 xxxxxxxx 

181.00- 200.00 xxxxxxxx 

201.00- 220.00 xxxxxxxxx 

221.00- 21*0.00 xxxxxxxx 

2^1.00- 26O.OO xxxxxxx 

26I.OO- 280.00 xxxxxx 

28I.OO- 300.00 xxxxx 

301.00- 320.00 xxxx 

321.00- Sto.OO xxx 

3U1.00- 360.00 xx 

361.OO- 38O.OO xx 

381.00- U00.00 



mean 203.919 
sigma 8U.295 
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c 



LITTLE LILLEY INPUT SOURCE 

Page 1 



c i ************i6o HISTOCHIAM^*********** 
c p.r.deichelbohrer 



1 format (50habcdefghijklflmopqLrstuvwxyzJ.2^)-) 

7 format (f5.2) 

6 format (f7.2,lh-,f7.2,2x,50al,50al) 

66 format (f7.2.1h-,f7.2) 

5 format (3Qx,6hmean,f9.3) 

k format (30x,5hsigma,f8.3) 

2 format (lx) 
77 format (15a2) 

79 format (17x,lhl,8x,2hl0,3x,2h20,8x,2h30,8x,2h»K),8x,2h50,8x, 

12h6o) 

dimension dig(50),al(50),a2(50),iprcnt(-LOO),ixray(100),icl(J-5) 
6o do H i=l,50 

al(i)»0 

a2(i)=0 
11 dig(i)=0 

sum^O 

suraa=0 

ip=0 

sums=»0 

3 read 1 

puneh 1 

read 1 

punch 1 

punch 2 

punch 2 

read 7, alpha 

read 7, omega 

read 7, enc 

read 7, div 

d= ( omega-alpha ) 

do 100 n=l,lOO 
100 ixray(n)=23 

ck=l.-enc 

if(ck) iK),Uo,30 
30 stlnc=.0l 

go to 8 
Uo stinc=l. 

8 read 7, data 

if (div) 200, 201, 201 
201 data=div/data 
200 if(ck) 203, 203, 20^ 



160-A:94 



LITTLE LILLEY INPUT SOURCE 

Pace 2 
203 data= (dataA) 
20^ if (data) 15, 17, 17 

17 i=( ( data-alpha )/enc) 

i=l+l 

dig(i)=d±g(i)+l. 
s*ua=sum+l. 
suna=suma+data 
dats=data*data 

sums»sums+datsh 8° to o 

15 4iaean=sunia/sum 

dsigm=sqrtf (sui«s/sumHiineari*dfflean) 

ip=d/enc 

lp=ip+l 

punch 79 

do 18 i«l,ip 

18 ifrcnt(i)=dig(i)/suitfHOO. 

alfaalpha 

do 23 1=1, ip 

al(i)aalf 

a2( 1) =alf +enc-stinc 

alf=a2(i)+stinc 

jprcnt =iprent ( i ) 

if fjprcnt) 20,21,20 

20 punch 6, al(i), a2(i),(ixray(n), n=l, jprcnt) 

go to 23 

21 punch 66, al(i), a2(i) 
23 continue 

punch 2 
punch 2 
punch 5, dmean 
punch h t dsigm 
do 28 1-1,1? 
28 icl (i)«0 

punch 77. (icl(i), 1=1,15) 
pause khhk 
go to 6o 

3t®p 1111 

end 
end 
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PAPER TAPE DUPLICATOR 

for 

LITTLE LILLEY DATA 

Procedure: 

A. Clear memory banks and 1. 

B. Clear memory bank selections. 

C. Load duplicator at (P) = 0000. 

1. Check sum: (A) = 0160; (P) = 0066 

D. Master Clear. 

E. Set all stop keys. 

F. Put "Little Lilley" data tape in reader and 
RUN from (P) = 0000. The data will be stored 
in memory banks and 1. 

G. When the input is completed, a stop will occur 
at (P) = 0020 and (Z) = 7701. DO NOT CLEAR! 

H. Turn on the punch and eject some leader. 

I. RUN from (P) = 0020. The data will now be 
punched out of banks and 1. 

J. When the output is completed, a stop will occur 
at (P) = 0037 and (Z) = 7702. DO NOT CLEAR! 

K. Insert the new paper tape into the reader. RUN 
from (P) = 0037. 

L. A stop will occur at (P) = 0065 and (Z) = 7704 
at the end of the verification. 

M. ERRORS 

1. (P) = 0017, (Z) = 7700 

Not enough storage space available, 
(more than 2 banks required). 

2. (P) = 0051 or (P) = 0061 and (Z) = 7777 
Verification error. 
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NUMBER: T038 

TITLE: Quality Assurance Typewriter Speed Test 

CATEGORY: 160 -A, 161 

MINIMUM EQUIPMENT NEEDED: 160-A, 161 

PURPOSE 
The test will insure typing of 10 characters per second. 

OPERATING INSTRUCTIONS 
LOAD INSTRUCTION: Paper Tape 
LOADING ADDRESS: 0777 

TERMINAL ADDRESS: 2130 
CHECK SUM: 4453 

STARTING ADDRESS: 0777 
ADDITIONAL INSTRUCTIONS; The "73" instruction is used for typewriter output. 
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T-038 
QUALITY ASSURANCE TYPEWRITER SPEED TEST 



0777 750** 



1000 


730** 


1001 


2130 


1002 


7103 


1003 


1*210 


100U 


1006 


1005 


0777 


1006 


001*5 


1007 


001*7 


1010 


0001 


1011 


0057 


1012 


0005 


1013 


0011* 


101U 


0021* 


1015 


0001* 


1016 


0011* 


1017 


0021* 


1020 


oooi* 


1021 


0030 


1022 


oooi* 


1023 


001*7 


102** 


0016 


1025 


0057 


1026 


0003 


1027 


0006 


1030 


0001 


1031 


0012 


1032 


0003 


1033 


0011 


103^ 


0001* 


1035 


001*7 


IO36 


0022 


1037 


0057 


101*0 


0030 


101*1 


0001 


101*2 


0030 


101*3 


oooi* 


101*1* 


001*7 


101*5 


0016 


101*6 


0057 


10»*7 


0003 
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1050 


0012 


1051 


0015 


1052 


0003 


1053 


0012 


1054 


0030 


1055 


0001 


1056 


ooi4 


1057 


0003 


1060 


0006 


1061 


0004 


1062 


0001 


1063 


0025 


1064 


0015 


IO65 


0020 


1066 


0031 


1067 


0012 


1070 


0014 


1071 


0001 


1072 


0020 


1073 


0012 


1074 


0004 


1075 


0024 


1076 


0015 


1077 


0020 


1100 


0020 


1101 


0022 


1102 


000k 


1103 


0001 


lie* 


0020 


1105 


0024 


1106 


0001 


1107 


0042 


1110 


0004 


1111 


0004 


1112 


0047 


1113 


0001 


1114 


0057 


1115 


0005 


1116 


0020 


1117 


0012 


1120 


0020 


1121 


0045 


1122 


0030 


1123 


0012 


1124 


0020 


1125 


0004 


1126 


0030 


1127 


0015 
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1130 


0015 


1131 


0012 


1132 


0003 


1133 


0027 


113U 


001*2 


1135 


000U 


1136 


0060 


1137 


OO56 


11U0 


0001+ 


lll*l 


0022 


lll*2 


0020 


lll*3 


0016 


lll*l* 


0014 


lll*5 


0007 


111*6 


0030 


lli*7 


0011 


1150 


006k 


1151 


0016 


1152 


0005 


1153 


0030 


115** 


0012 


1155 


0030 


1156 


0016 


1157 


0001 


1160 


0020 


1161 


0012 


1162 


002U 


1163 


000U 


1161* 


0015 


1165 


0020 


1166 


0012 


1167 


oooi* 


1170 


0011 


1171 


OOll* 


1172 


0006 


1173 


0020 


ink 


00^2 


1175 


oooi* 


1176 


0001+ 


1177 


001*7 


1200 


0001 


1201 


0057 


1202 


0005 


1203 


0020 


120k 


oooi* 


1205 


0021* 


1206 


0015 


1207 


0020 
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1210 


0020 


1211 


0022 


1212 


0004 


1213 


0024 


1214 


0005 


1215 


0003 


1216 


0034 


1217 


0011 


1220 


0022 


1221 


0004 


1222 


0023 


1223 


0020 


1224 


0045 


1225 


0023 


1226 


0020 


1227 


0001 


1230 


0031 


1231 


0020 


1232 


0020 


1233 


0006 


1234 


0004 


1235 


0074 


1236 


0056 


1237 


0004 


1240 


0030 


1241 


0006 


1242 


0022 


1243 


0004 


1244 


0074 


1245 


0070 


1246 


0004 


1247 


0016 


1250 


0005 


1251 


0030 


1252 


0012 


1253 


0030 


1254 


0016 


1255 


0001 


1256 


0020 


1257 


0012 


1260 


0024 


1261 


0004 


1262 


0015 


1263 


0020 


1264 


0012 


1265 


0004 


1266 


0024 


1267 


0020 



161:5 



1270 


0016 


1271 


0003 


1272 


0006 


1273 


0022 


1274 


0042 


1275 


0004 


1276 


0004 


1277 


0047 


1300 


0011 


1301 


0057 


1302 


0003 


1303 


0031 


1304 


0020 


1305 


0012 


1306 


0004 


1307 


0016 


1310 


0030 


1311 


0024 


1312 


0020 


1313 


0050 


1314 


0004 


1315 


0030 


1316 


0023 


1317 


0016 


1320 


0022 


1321 


0020 


1322 


0026 


1323 


0013 


1324 


0005 


1325 


0014 


1326 


0032 


1327 


0036 


1330 


0011 


1331 


0007 


1332 


0006 


1333 


0045 


1334 


0003 


1335 


0015 


1336 


0035 


1337 


0012 


1340 


0024 


1341 


0001 


1342 


0034 


1343 


0017 


1344 


0031 


1345 


0027 


1346 


0025 


1347 


0021 
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1350 


0056 


1351 


0074 


1352 


0070 


1353 


0064 


1354 


0062 


1355 


0066 


1356 


0072 


1357 


0060 


1360 


0033 


1361 


0037 


1362 


0052 


1363 


0044 


1361* 


0054 


1365 


0046 


1366 


0042 


1367 


0050 


1370 


0040 


1371 


0002 


1372 


0004 


1373 


0047 


1374 


0034 


1375 


0015 


1376 


0015 


1377 


0020 


1400 


0012 


114.01 


0004 


1402 


0016 


1403 


0030 


i4o4 


0024 


1405 


0020 


1406 


0050 


1407 


0004 


1410 


0030 


1411 


0023 


1412 


0016 


1413 


0022 


1414 


0020 


1415 


0026 


1416 


0013 


1417 


0005 


1420 


0014 


1421 


0032 


1422 


OO36 


1423 


0011 


1424 


0007 


1425 


0006 


1426 


0003 


1427 


0015 
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1430 


0035 


1431 


0012 


1432 


0024 


1433 


0001 


1434 


0034 


1435 


0017 


1436 


0031 


1437 


0027 


1440 


0025 


1441 


0021 


1442 


001*5 


1443 


OO56 


1444 


0074 


1445 


0070 


1446 


0064 


1447 


0062 


1450 


0066 


1451 


0072 


IU52 


0060 


1453 


0033 


1454 


0037 


1455 


0052 


1456 


0044 


1457 


0054 


1460 


0046 


l46l 


0042 


1462 


0050 


1463 


0040 


1464 


0002 


1465 


0004 


1466 


0004 


1467 


0030 


1470 


0057 


1471 


0011 


1472 


0011 


1473 


0004 


1474 


0036 


1475 


0020 


1476 


0025 


1477 


0024 


1500 


0004 


1501 


0024 


1502 


0005 


1503 


0003 


1504 


0034 


1505 


0011 


1506 


0022 


1507 


0004 
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1510 


0024 


15H 


0001 


1512 


0012 


1513 


0014 


1514 


0036 


1515 


0020 


1516 


0004 


1517 


0031 


1520 


0014 


1521 


0001 


1522 


0005 


1523 


0004 


1524 


003U 


1525 


0006 


1526 


0014 


1527 


0026 


1530 


0003 


1531 


0012 


1532 


0007 


1533 


0004 


1534 


0026 


1535 


0003 


1536 


0012 


1537 


0016 


1540 


0020 


1541 


0042 


1542 


0004 


15^3 


0004 


1544 


0047 


1545 


0030 


1546 


0057 


1547 


0011 


1550 


0011 


1551 


0045 


1552 


0016 


1553 


0005 


1554 


0030 


1555 


0012 


1556 


0030 


1557 


0016 


1560 


0001 


1561 


0020 


1562 


0012 


1563 


0024 


1564 


0004 


1565 


0024 


1566 


0005 


1567 


0003 
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1570 


0034 


1571 


0011 


1572 


0022 


1573 


0004 


1574 


0023 


1575 


0020 


1576 


0004 


1577 


0011 


1600 


0020 


1601 


0013 


1602 


0014 


1603 


0023 


1604 


0011 


1605 


0020 


1606 


0004 


1607 


0031 


1610 


0014 


l6ll 


0001 


I6l2 


0005 


1613 


0004 


l6l4 


0001 


1615 


0005 


1616 


0020 


1617 


0004 


1620 


0036 


1621 


0020 


1622 


0025 


1623 


0004 


1624 


0015 


1625 


0012 


1626 


0020 


1627 


0024 


1630 


0024 


1631 


0034 


1632 


0012 


1633 


0020 


1634 


0004 


1635 


0016 


1636 


0003 


1637 


0006 


1640 


0001 


1641 


0012 


1642 


0003 


1643 


0011 


1644 


0004 


1645 


0024 


1646 


0020 


1647 


0001 
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1650 


0004 


1651 


0030 


1652 


0001 


1653 


0004 


1654 


0021 


1655 


0020 


1656 


0012 


1657 


0003 


1660 


0042 


1661 


O0U5 


1662 


0047 


1663 


0023 


1664 


0057 


1665 


0030 


1666 


0004 


1667 


0004 


1670 


0061 


1671 


0061 


1672 


0016 


1673 


0036 


1674 


0024 


1675 


0015 


1676 


0004 


1677 


0016 


1700 


0020 


1701 


0004 


1702 


0061 


1703 


0061 


1704 


0061 


1705 


0061 


1706 


0030 


1707 


0016 


1710 


0020 


1711 


0004 


1712 


0003 


1713 


0015 


1714 


0020 


1715 


0012 


1716 


0030 


1717 


0004 


1720 


0061 


1721 


0001 


1722 


0014 


1723 


0003 


1724 


0006 


1725 


0004 


1726 


0014 


1727 


0024 
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1730 


0004 


1731 


0006 


1732 


0004 


1733 


ooou 


173^ 


000!+ 


1735 


000U 


1736 


0004 


1737 


0061 


1740 


0061 


1741 


0061 


1742 


0061 


1743 


0061 


1744 


0003 


1745 


0031 


17U6 


0004 


1747 


0023 


1750 


0047 


1751 


0004 


1752 


0004 


1753 


0004 


1754 


0004 


1755 


006l 


1756 


0061 


1757 


0061 


1760 


0061 


1761 


0057 


1762 


0020 


1763 


0014 


1764 


0006 


1765 


0013 


1766 


0004 


1767 


006l 


1770 


0045 


1771 


0016 


1772 


0004 


1773 


0004 


1774 


0004 


1775 


0004 


1776 


0004 


1777 


0004 


2000 


ooo4 


2001 


0004 


2002 


0004 


2003 


0004 


2004 


0061 


2005 


0061 


2006 


0061 


2007 


0061 
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2010 


0061 


2011 


0061 


2012 


0061 


2013 


0061 


2014 


006l 


2015 


006l 


2016 


0005 


2017 


0047 


2020 


0004 


2021 


0004 


2022 


0004 


2023 


0004 


2024 


0004 


2025 


0004 


2026 


0004 


2027 


0004 


2030 


0004 


2031 


0004 


2032 


0061 


2033 


0061 


2034 


0061 


2035 


0061 


2036 


0061 


2037 


0061 


2040 


0061 


2041 


0061 


2042 


0061 


2043 


0061 


2044 


0057 


2045 


0020 


2046 


0004 


2047 


0036 


2050 


0004 


2051 


0004 


2052 


0004 


2053 


0061 


2054 


0061 


2055 


OO6I 


2056 


0020 


2057 


0004 


2060 


0061 


2061 


0022 


2062 


0061 


2063 


0061 


2064 


0O6l 


2065 


0061 


2066 


0016 


2067 


0004 
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2070 


0004 


2071 


0004 


2072 


0042 


2073 


0045 


207^ 


0045 


2075 


0045 


2076 


0047 


2077 


0006 


2100 


0003 


2101 


0004 


2102 


0015 


2103 


0012 


2104 


0003 


2105 


0023 


2106 


0011 


2107 


0020 


2110 


0007 


2111 


0004 


2112 


0050 


2113 


0004 


2114 


0024 


2115 


0005 


2116 


0014 


2117 


0015 


2120 


0004 


2121 


0007 


2122 


0020 


2123 


0004 


2124 


0042 


2125 


0045 


2126 


0051 


2127 


0045 



2130 0000 
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NUMBER: T009 

TITLE: Typewriter Test 

CATEGORY: 160-A, 161 

MINIMUM EQUIPMENT NEEDED: 160-A, 161 

PURPOSE 
This is an inclusive typewriter test consisting of three routines: 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

CHECK SUM: 1045 

TEN CHARACTER TEST 

STARTING ADDRESS: 0300 

The routine accepts ten characters typed in from the program and then types out 

a carriage return followed by the ten characters. 

DISCONNECT TEST 

STARTING ADDRESS: 0320 

This test accepts information until an input disconnect is. set either automatically 
or manually. The program then types out a carriage return followed by the infor- 
mation up to the disconnect. 

TYPING TEST 

STARTING ADDRESS: 0340 

Information for this test is accepted until a carriage return is typed. The same 

information is then typed out. 
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T009 



0300 7511 type in 
7207 10 char 
2012 

7507 type out 
7W*5 CR 
7303 to char 
2012 
6507 

0310 2000 

U220 type in code 

U210 type out code 

0000 

0000 

0000 

0000 

disconnect test 

0320 7515 type in 
7213 
2200 
3611 
6U0U 

3207 
U20U 
7507 type out 

0330 7UU5 cr 
7303 
2000 

6513 

2000 start bffr. 

k220 type in code 

1*210 type out code 

0000 
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T009 



OJUO 230U preset 

U070 Input 

7507 type in 
7600 

U170 store 

07U5 
600U CR 

5^70 no 

0350 6505 

U220 in code 

5U70 

U203 

750U out 

730U 

2000 

6517 

0360 U210 out code 
2000 
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NUMBER: T039-A 

TITLE: Quality Assurance I/O Reliability Test 

CATEGORY: 160-A, 161, 163, 164 

MINIMUM EQUIPMENT NEEDED: 160-A, 161, 163, 164 or 162 

PURPOSE 
This program checks the following: 

1) Reader is checked for proper operation with the 72 and 7600 instructions at normal 
reader speed and also start, stop operation. 

2) Punch is checked for proper operation with the 74, 73 and 7677 instructions, at 
normal speed and also at various lower speeds down to approximately one -fifth 
normal speed. 

3) The typewriter is checked for output with 73 and 74 instructions. 

4) Keyboard input is checked with 72 and 7600 instructions. 

5) A logic instruction check is made each cycle of the program. 

6) Buffer can also be completely checked if it is desired to run the 162, 163 or 164 
Magnetic Tape Units. The typewriter should be connected to the "Normal" I/O 
channel and the Magnetic Tape to the "Buffer" channel. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 0000 in bank 

TERMINAL ADDRESS: 6500 

CHECKSUM: 0160 

STARTING ADDRESS: 0000 (6300 if Magnetic Tape is to be used) 

Set the punch level selection in "A" register 

0377 for 8 level, 

0177 for 7 level, 

0037 for 5 level paper tape 

Put the computer in run. 

The punch will run sufficient tape to reach the reader and stop with P = 2030. Insert 
the tape leader into the reader and put the computer back into run (do not master clear 
after punch stop). 
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The program will read and punch 50 groups of binary count then jump into a typewriter 
output routine. 

If Magnetic Tape is used on the buffer channel with this program the tape unit will cause 
asynchronous buffer interruptions. 

The Magnetic Tape will write and read an inverse binary count from bank 1. Following 
the typewriter output, the punch and reader will operate at a variable speed. 

At the end of this test, the computer will halt with input in the Status Mode. Type in 
10 characters and those 10 characters should be typed back out. 

Type in, to a maximum, 127 characters followed by manual disconnect. The same 
characters should be typed back. 

Type in, to a maximum, 127 characters followed by a carriage return. The same 
characters should be typed back. 

The typewriter will then output the entire typewriter repoitoire with a 74 instruction 
and jump into a punch reader test using the 7600 and 7677 instructions. Following this 
test, the computer will jump into the logic test. 

From the logic test the computer programs will jump to the initial punch-reader test. 

At the termination of all tests except typewriter tests, the typewriter will type out the 
status of the test. 

HALT EXPLANATION 

2046 Error data displayed in "A" register. Is indicated if an error 

occurs in (test 2), the first reader-punch program. 

Put the computer into run (do not master clear). 

2050 Correct data displayed in "A" register. Observation of the paper 

tape frame immediately behind the read station will determine if 
the error was due to punch or reader error. 

The operator may re-synchronize the program by moving the 
correct data plus 1 count under the read station. 



161:20 



HALT 

4600 or 4633 



4602 or 4635 



4154 



4156 



6011 
6226 
6160 



EXPLANATION (Cont'd.) 

Error data displayed in "A" register. Is indicated if an error 

occurs in (test 4) the second reader-punch program. 

Put the computer back into run. 

Correct data displayed in "A" register. Observation of the paper 
tape immediately behind the read station will determine whether it 
was a punch or reader error. 

Put the computer back into run (do not master clear). The program 
will search for synchronization and continue to read and punch at a 
variable speed. 

Error data displayed in "A" register. Is indicated if an error 
occurs in (test 6) the third reader-punch test. 

Put the computer back into run (do not master clear). 

Correct data displayed in "A" register. Observation of the tape 
immediately behind the read station will determine whether it was 
a punch or reader error. 

The program may be re-synchronized by putting the correct data 
plus 1 count under the read station and putting the computer back 
into run. 

If a parity error occurs on the Magnetic Tape program, the tape 
unit will backspace a maximum of 3 times to rewrite or re-read 
the data. 

If a parity error still exists after 3 trials the computer will stop. 

Parity error write. 

Parity error read. 

If a comparison error occurs, "A" register will contain the address 
in bank 1 of error data. 

Correct data should be the complement of the address. The com- 
puter may be put into run to continue the test after any of the above 
stops . 
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HALT EXPLANATION (Cont'd.) 

1760 Indicates a paper tape level selection different than those described 

under Operating Instruction. 

If an error occurs in the typewriter tests (test 3 or test 5) the 
operator may determine the error by observing the data that was 
typed out. 
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M.L. 
0000 

6300 

20I4O 

2106 

2301 

2351 

1*570 

U667 

5363 

5626' 

U100 

U151 

U200 

3715 

61*31 

61*36 

6W3 

6U5U 



Initial start without 163 or 16U Magnetic Tape. 
Initial start with 163 or 16U Magnetic Tape. 
Entrance to Test #2 (Punch and Reader) 



Exit from Test #2 

Entrance to Test #3 

Exit from Test #3 

Entrance to Test #U 

Exit from Test #U 

Entrance to Test #5 

Exit from Test #5 

Entrance to Test #6 

Exit from Test #6 

Entrance to Test #1 

Exit from Test #1 

Entrance to Type Out Status from Test #1 

Entrance to Type Out Status from Test #2 

Entrance to Type Out Status from Test #U 

Entrance to ^ype Out Status from Test #6 



(Typewriter Output) 

(Punch and Reader Var. Speed) 

(Typewriter Input-Output) 

(Punch and Reader) 

(Logic Test) 
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T039-A 



00000 



4033 
o6oi 
4032 
7101 
1750 
0000 
0000 
0000 



Store Header-Punch Mask 

Store Limit 
Ind. Jump 



00010 



00020 



0000 
0000 
0000 
0000 
0000 
4225 
7101 
1750 

0000 
4024 
7101 
5734 

0000 
3724 
0000 
0000 



Ind. Address for Half Write 



Variable Address (6052) (6130) (5751) (6250) (6100) 
Data Stored at Interrupt 



00030 



ooo4o 



0000 
0000 
0000 

0000 

0000 
0000 

0530 
0667 

4062 
5473 
5473 

7643 

1171 
5624 
1230 

0000 



Ind. Address 
Ind. Address 



Variable 
Ind. Address 

Ind. Address 
Variable 



00050 



1303 
1355 
7070 

1375 
4l6o 
4166 
0400 
6011 



Ind. Address 
Ind. Address 



Set Memory Location 7777 to Initial Variable 
Set Memory Location 350U to Initial Variable 
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00060 7777 

oUoo 

0200 
00*10 
2011 

76U3 

350*1- Ind. Address 
2066 

00070 1»030 Set Punch Output Data to Zero 
hljk Set Punch Output Data to Zero 
7101 Ind. Jump to Start Test #2 
2000 
2066 
0000 
0000 
0000 

00100 6005 Test Zero Jump Forward 
01*60 

0000 Error 
0^5 

0000 Error 

6502 Test Non-Zero Jump Back 
6205 Test Pos. Jump Forward 
0**62 

00110 0000 Error 
01*67 

0000 Error 

6702 Test Neg. Jump Back 
0577 

6105 Test Non-Zero Jump Forward 
0U6l 
0000 Error 

00120 0^ 

0000 Error 

6k02 Test Zero Jump Back 

6305 Test Neg. Jump Forward 

OU63 

0000 Error 

o**66 

0000 Error 

00130 6602 Test Pos. Jump Back 

0110 Left Shift "A" 3 Bit Positions 

6303 Test Neg. Jump Forward 

0l*63 

0000 Error 

0110 Left Shift "A" 3 Bit Positions 

6205 Test Pos, Jump Forward 

0U62 
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ooiUo 



00150 



00160 



00170 



00200 



00210 



0000 


Error 




0U67 






OOOO 


Error 




6702 


Test Neg. Jump Back 




ohoo 


Test LDN Instruction 




6005 






0400 






6001 


Pass 




oi*oi* 






0000 


Error 




2307 


Test 1KB Instruction 




630k 






ol*23 






0000 


Error 




1075 






2301 


Test ABB Instruction 




3315 






6003 






C&33 






0000 


Error 




2706 


Test LGB Instruction 




3307 






6003 






ol*27 






0000 


Error 




2313 
3711* 
6003 


Test 3BB Instruction 








01*37 






0000 


Error 




2320 


Test 3BB Instruction 




1*035 






31*35 






6003 






01*31* 






0000 


Error 




2313 


Test Left Shift "A" 1 Bit 


Position 


0102 






6303 






oi*oi 






0000 


Error 




0102 






6203 






01*01 






0000 


Error 




0102 






6203 






01*01 
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00220 0000 Error 
0102 

6303 

01(01 

0000 Error 

0102 

6303 

otoi 

00230 0000 Error 
0102 
6203 
OltOl 

0000 Error 
0102 
6203 
0U01 

002U0 0000 Error 
0102 
6303 
6k01 

0000 Error 
0102 
6203 
©1*01 

00250 0000 Error 
0102 
6303 

oi*oi 

0000 Error 

0102 

6303 

0l»01 

00260 0000 Error 
0102 
6201* 

01*01 

0000 Error 

OhOk 

2301 Test Left Shift "A" 3 Bit Positions 

0110 

00270 6303 

01*01 

0000 Error 
0110 

6203 
01*01 

0000 Error 
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00300 


6303 

otoi 






0000 


Error 




0110 






6203 






otoi 






0000 


Error 




2303 


Test Logical Product Backward 


00310 


1301 
6203 
0fcL3 






0000 


Error 




0102 






6303 






0^13 






0000 


Error 


00320 


0102 
6203 
0413 






0000 


Error 




0102 






6203 






0lH3 






0000 


Error 


00330 


0102 

6303 
0U13 






0000 


Error 




0102 






6203 






0U13 






0000 


Error 


003^0 


0102 
6203 
0»H3 






0000 


Error 




0102 






6203 






0*413 






0000 


Error 


00350 


0102 
6203 

0413 






0000 


Error 




0102 






6203 






<*13 






0000 


Error 
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00360 0102 
6303 
6kl3 

0000 Error 
0102 
6303 
0413 
0000 Error 

00370 2307 Test Selective Complement Backward 
176U 

6303 

cA-17 

0000 Error 

0102 

6303 

0*H7 

00400 0000 Error 
0102 
6203 
0*H7 

0000 Error 
0102 
6303 
0U17 

00^10 0000 Error 
0102 
6303 
0Ul7 

0000 Error 
0102 
6303 
0U17 

00^20 0000 Error 
0102 
6203 
OklJ 

0000 Error 
0102 
6203 
0U17 

00^30 0000 Error 
0102 
6203 
0U17 

0000 Error 
0102 
6203 

01*17 
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ooi*i*o 



001*50 



ool*60 



ool*70 



00500 



00510 



0000 
0102 

6303 
01*17 
0000 
0102 

6201* 
0**17 

0000 

5252 

2701 
6203 
0**27 
0000 
0102 
6303 

0U27 
0000 
0102 
6203 
0^27 
0000 
0102 
6303 

0U27 
0000 
0102 
6203 
0^27 
0000 
0102 
6303 

0**27 
0000 
0102 
6203 
01*27 
0000 
0102 
6303 

01*27 
0000 
0102 
6203 
01*27 
0000 
0102 

6303 



Error 



Jirror 



Error 

Test Load Complement Backward or Shift Replace ForTia 

Error 



Error 



Error 



iirror 



Error 



Error 



Jirror 



Error 



Error 
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00520 0^27 

0000 Error 

0102 

6203 

OteT 

0000 Error 

0102 

6303 

00530 0U27 

0000 Error 

6k6k 

070U 

6003 

OUOT 

0000 Error 

7101 

005^ 0563 Variable Jump Address (0566) 

2211 Change Error Stop Codes from 0027 to 00k6 

4366 

2301 

070^ 

^303 

3607 

6506 

00550 4604 start Shift Replace Forward Test 
6576 Jump Back to Bit Test 
6kb6 
0000 

5252 
U306 

0U27 
0530 

00560 C&50 
0563 
0566 

2301 Change Jump Address from 0563 to 0566 

k32k 

652k 

2305 Change Jump Address from 0566 to 0563 
4327 

00570 2312 Change Error Stop Codes from 00U6 to 0027 
4136 
2036 
070U 
1*036 
1715 
6506 

2320 161:31 



oo6oo 



00610 



00620 



00630 



oo6to 



iiirror 



irror 



00650 



4036 
2725 
4326 
6103 
2525 
7777 
0U60 
53^5 

2303 
3705 
6303 
0^37 
0000 
0102 
6203 
OU37 

0000 
0102 
6303 
01*37 
0000 
0102 
6203 
0^37 

0000 
0102 
6303 
01*37 
0000 
0102 
6203 
0**37 



0000 Error 

0102 

6303 

OU37 

0000 Error 

0102 

6203 

OU37 

0000 Error 

0102 

6303 

01*37 

0000 Error 

0102 

6203 
Ol*37 



Reset Variable 
Jump Forward 

Reset Relative Store 

Test Subtract Back Instruction 

Error 



irror 



iirror 
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oo66o 



00670 



00700 



00710 



00720 



00730 



0000 
0102 
6303 
Ol*37 
0000 
0102 
6203 
C*37 

0000 

7101 
0721 
2217 
1*361 
2301 
0701* 
1*303 

3613 
6506 

2205 
3205 
6572 

01*32 

0000 
1*016 

1231* 

ol*37 
0l*32 
1*301 
1*361 
0607 
0667 
0721 

0721* 
2301 
1*330 
6530 
2310 
!*331 
2307 
1*335 

2317 
1*137 
2037 
0701* 

1*037 
3720 
6506 
2321 



Error 



Error 



Error 

Variable Jump Address (0721).) 

Change Error Stop Code from 0037 to 0032 



Start Add Forward Test 
Jump Back to Bit Test 



Change Variable Jump Address from 0721 to 0721* 

Jump Back 

Reset Relative Store Back 

Change Jump Address from 0721; to 0721 



Change Error Stop Code from 0032 to 0037 



Set Ind. Address 
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OOTto 1*037 

2311 Test Logical Product NO Address Instruction 

0207 

0707 

6003 

0l*02 

0000 Error 

230 1 * Test Logical Product Direct Instruction 

00750 1052 
6003 

0U10 

0000 Error 

2305 Test Logical Product Indirect Instruction 

6003 
OkH 

00760 0000 Error 

2304 Test Logical Product Forward Instruction 

120fc 

600k 

0*U2 

0000 Error 

6666 

2326 Test Selective Complement. HO Address 

00770 0315 
3710 
6003 
0to3 

0000 Error 

Zflk Test Selective Complement Forward 
11+42 

6OO3 

01000 okih 

0000 Error 

2371 Test Selective Complement Indirect 

1537 

6OO3 

0415 

0000 Error 

2304 Test Selective Complement Forward 

01010 160U 
6ooh 
6ki6 

0000 Error 
1537 

2041 Test Load Direct Instruction 
360U 

6004 
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01020 



01030 



OlOto 



01050 



01060 



010T0 



0U20 
0000 
5^73 
2137 
360U 
606k 
0^21 
0000 

(*37 
2205 
3710 
600»f 
0^22 
0000 
5^73 

0552 

366k 
606k 

01*05 
0000 
7725 

2¥H 

3310 
6003 

Ofc2l* 
0000 
2537 
3323 
6003 
0^25 
0000 

2605 

3305 
600U 
0U26 

0000 

3323 
2305 
0616 
3703 

6003 

6ko6 

0000 

2735 

30to 
6003 
0^30 
0000 



Error 

Test Load Indirect Instruction 

Error 

Test Load Forward Instruction 



Error 

Test Load Complement No Address Instruction 

Error 

Test Load Complement Direct Instruction 



Error 

Test Load Complement Indirect Instruction 



Error 

Test Load Complement Forward Instruction 



Error 

Test Add No Address Instruction 



Error 

Test Add Direct Instruction 



arror 
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01100 2750 Test Add Indirect Instruction 
3137 
6003 
0U31 
0000 Error 

2705 Test Add Forward Instruction 

320^ 

600U 

01110 0U32 

0000 Error 
2750 

2313 Test Subtract No address Instruction 

07^3 

3710 

6003 

01*07 

01120 0000 Error 

2363 Test Subtract Direct Instruction 

3^1 

6003 

0^ 

0000 Error 

2376 Test Subtract Indirect Instruction 

3537 

01130 6003 

0435 

0000 Error 

2304 Test Subtract Forward Instruction 

360U 

600k 

Oh36 

0000 Error 

Ollto 3537 

aoJH Test Store Direct Instruction 

1*01*2 

201*1 
3W*2 
6003 
(MO 
0000 Error 

01150 2312 Test Store Indirect Instruction 
0601 

4137 
2137 
3604 
606k 

oVu 

0000 Error 
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01160 0^37 

2305 Test Store Forward Instruction 
k206 

2707 
320U 
6007 
0^2 
0000 Error 

01170 0000 Stored Data 
7507 Variable 
2U70 Variable 
7507 Variable 

W»-3 Test Shift Reolace Direct Instruction 
3702 
6003 
ohkk 

01200 0000 Error 

2306 Shift Variable 
0102 

^310 

k^kh Test Shift ReT>lace Indirect Instruction (kh contains 1171) 

3712 

600V 

Cto5 

01210 0000 Error 

^321 Variable 

2320 Test Shift Replace Backward Instruction 

0102 

1*322 

230U 

0102 

4206 

01220 1*707 
3604 
6007 

0000 Error 

061*3 

562k Variable 

<*35 

01230 0^35 

2303 Test Replace Add Direct Instruction 

0617 

U305 

cfcrr 
501*5 
3710 
6003 
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01240 



01250 



01260 



01270 



01300 



0450 
0000 
2211 
0671 
4207 
0471 
5146 
36o4 

6oo4 
0451 
0000 
0435 
2211 
0644 

4207 
0444 

5206 
3604 
6007 
0452 
0000 
0451 
0451 
2431 

2431 
2301 
0625 
4303 
0425 
5306 
3706 
6010 

0453 
0000 
0000 

0772 
0772 
4101 
4101 

2305 



01310 



Error 

Test Replace Add Indirect Instruction 



(I-I,L,U$ contains 1230) 



j-.rror 

Variable 

Test Replace Add Forward Instruction 



Lrror 
Variable 
Variable 
Variable 

Variable 

Test Replace Add Backward Instruction 



Error 

Variable 

Variable 

Variable 

Variable 

Variable 

Test Replace Add One Direct Instruction 



0601 

4307 

5447 

3711 

6003 

0454 

0000 Error 

2313 Test Replace Add One Indirect Instruction 
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01320 0601 

U315 , 

5550 (M.L.£0 contains 1303) 

3717 

6003 

OU55 

0000 Error 

2212 Test Replace Add One Forward Instruction 

01330 1*210 
0601 
1*207 
5605 
3605 
6005 
0456 
0000 Error 

0131*0 3720 Variable 
3720 Variable 

2335 Test Replace Add One Backward Instruction 
0601 
1*337 
5737 
371*1 
6003 

01350 Ol*57 

0000 Error 

7051 Test Jump Instruction 

01*70 

0000 Error 

7101 Test Jump Instruction 

1361 

01*71 

OI36O 0000 Error 

56II Incr. Test Count 
6303 

oi*oo 

7112 Jump Ind. to 0100 
£212 Reset Test Count 
kZOk 
0l*00 

01370 7101 
11*00 

031** Test Count 

7101 Jump to Expanded Capabilities 
11*00 
0000 
0100 

03 1** 
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oi4oo 



oi4io 



01420 



01430 



oi44o 



01450 



2200 
7643 
3701 
6002 
0000 
2304 
U203 
4706 

46oo 
7507 
2311 
3702 
6002 
0000 

2305 

1*200 

7507 
1710 
6002 

0000 

2704 

4202 
5600 
0270 

0701 
3311 
6003 
0000 
7643 

5200 

7643 
3703 

6002 
0000 

4706 

4305 
2706 
4203 
2312 

1200 

0560 
6002 

0000 

2303 

4202 

1600 
0506 
6002 



Test Load Constant Instruction 
Variable 



iiirror 

Set Variable 



Test Shift Replace Constant Instruction 
Variable 



;jrror 

Test Store Constant Instruction 



iiirror 

Set Variable 

Test Replace Add One Constant Instruction 



iiirror 

Variable 

Test Replace Add Constant (add zero) Instruction 



li-rror 

Set Variables 

Set Variable 

Test Logical Product Constant Instruction 



-irror 

Set Variable 



Test Selective Complement Constant Instruction 
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oiU6o 



011+70 



01500 



01510 



01520 



01530 



0000 
2303 
1+202 
2600 
0506 
3307 
6002 
0000 

230U 
1+202 
3600 
0506 
6002 
0000 
2703 

1+203 

2305 
3200 
7271 
6002 
0000 
0101 

0603 
1+205 

0101 

3603 
6003 

0000 

1510 
5701 

0101 

0705 

3701+ 
6002 

0000 
0101 

1+310 
oi+oi+ 

5312 

0101 

371U 
6002 

0000 
0101 
1+212 

0103 

1+211 

2207 



irror 

Set Variable 

Test Load Complement Constant Instruction 
Variable 



Error 

Set Variable 

Test Subtract Constant Instruction 
Variable 

Error 

Set Variable 

Test Add Constant Instruction 

Variable 

Error 

Test P-»A Instruction 



Error 
Variable 



^rror 



.brror 



Test Left Shift Two 
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015U0 3206 
3205 
320U 
360U 
606k 

0000 Error 
1533 Variable 
6l5k Variable 

01550 0101 
1*213 

0111 Test Left Shift Six 
1*212 
4610 
1*607 

1*606 
0103 

01560 0102 
360I* 
6005 

0000 Error 
1550 Variable 
5300 Constant 
0000 
0113 Test Multiply by 100 (X zero) 

01570 6003 

0000 Error 

0001 Variable 
2301 

0113 Test ifultiDly by 100 (X) 

1*225 

2301* 

0103 

01600 0102 
1*222 
2310 
0102 
5217 
0103 
0102 
1*215 

01610 1*613 

3213 

3610 

6OO2 

0000 Error 

5723 

3607 Check Limit of Variable 

6lll* 
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01620 6006 Jump Forward to Reset Variable 
0000 
0000 
0000 
0000 

0623 Constant Limit 
0401 Reset Variable 
4335 

01630 6103 

1632 

7643 Variable 

2100 Test Load Memory Instruction 
1632 

3703 
6002 
°000 Error 

01640 2706 

1100 Test Logical Product Memory- Instruction 

1632 

6002 

0000 Error 

2313 

1500 Test Selective Complement Memory Instruction 
1632 

01650 6002 

0000 Error 

2500 Test Load Complement Memory Instruction 

1632 

3322 

6O02 

0000 Error 

2725 

01660 3100 Test Add Memory Instruction 
I632 
6002 

0000 Error 
2332 

3500 Test Subtract Memory Instruction 

1632 

6O02 

016TO 0000 Error 
2337 

4206 

^100 Test Store Memory Instruction 

1632 

3603 

6003 

0000 Error 

161:43 



01700 



01710 



761*3 

vroi 

4500 

1632 
3704 

6002 

0000 

5707 

5500 
1632 
3712 
6002 

0000 
0423 

5316 

0423 



Variable 

Change Variable 

Test Shift Replace 'Memory Instruction 



Error 

Change Variable 

Test Replace Add One Memory Instruction 



irror 

Set Variable 



01720 



01730 



5100 
1632 
1722 
6002 
0000 

5604 
6006 
7101 

l4oo 

0000 
0000 
0000 

7101 
3500 

0000 
0000 



Test Replace Add Memory Instruction 



Error 

Incr. Test Count 



Jump Back to Expanded Capabilities Test 



Test Count 



Jump to 160-A Logic 



01740 



01750 



0000 
0000 
0000 
0000 
0000 
0000 
0000 

7736 

1461 
6010 
2032 
1462 
6006 
2032 
1463 
6oo4 



Check Reader Punch Level Selection 
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01760 



01770 



02000 



02010 



02020 



02030 



0000 
0707 
0716 

060*l- 

3036 

kl6k 
2065 
7101 

005* 
0016 
000k 
000U 
000U 
000U 
0577 
U270 

0577 

*200 

7700 

0120 

756U 
Ikoo 

0120 
5705 

6505 
0507 
U200 
7770 
0001 
7553 
7353 
2067 

0120 
56*5 
1033 
U2*3 

6507 
5712 
6511 
5637 

7777 
0120 
7535 
7600 

6h03 
6lOk 
0120 

7530 



Error - Illegal Level Selection Made 
Set Initial Paper Tape Length 



Load Initial Variable ( 761+3 ) 
Ind. Jurao 



>et Initial Tape Leader Length 



Punch Out Leader 

Clear Interrupt Lockout 
Incr. Leader Count 



Initial Tape Length (0£07 for 8 level selection) 



Punch Output from K.L. 2066 



Clear Interrupt Lockout 

Incr. Punch Data 

Logical Product with Mask 



Incr. Initial Block Count 

Halt to Load Paper into Reader 
Leader Search 
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02040 



02050 



02060 



020T0 



02100 



02110 



7600 
0120 
4223 
3623 
6OO5 
2220 
0000 

2217 

7700 
5615 
1033 

4213 
6516 
0120 
7512 
7312 

2067 
0120 
7101 
2073 
0000 
0000 
0000 
4102 

4104 
2066 
7720 
7100 
6031 
5707 
1033 
4311 

6523 
5707 
65W 

0557 
4312 
7101 
6436 
0011 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 



Reader Input to "A" 
Clear Interrupt Lockout 

Compare Data 

Load Error Data 

Error Halt 

Load Correct Data 

Halt 

Incr. Data 

Logical Product Mask 



Punch Out from M.L. 2066 



Clear Interrupt Lockout 
Ind. Jump 



Punch Output Data 
Exf • Code - Reader 

Exf • Code - Punch 
Starting Address 

Return Jump - Check for Mag, Tape Rewind Condition 
Incr. Data 



Incr» -5-7 Block Count 

7 8 
Reset Block Count 

Ind, Jump to Type Out Test Status 
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02120 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02130 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02140 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02150 0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 

02160 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

02170 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
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02200 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02210 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02220 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02230 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

022**0 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02250 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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02260 



02270 



02300 



02310 



02320 



02330 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

3hj6 

7500 
4210 

7317 
2364 
0120 
2302 

3707 

6030 

2211 
0610 
4207 
2310 
0610 
4312 
3604 

6105 
6007 
2354 
3474 
3476 
7100 
6031 
6426 

2304 
4325 
6505 
0000 
0000 
0000 

2354 

2364 



Entrance for Test #3 
Exf • Code for Type Out 

Term. Address (Variable) 
Clear Interrupt Lockout 

Check Limit 

Jump to 23U0 at end of Paragraph 

Add +10 to Starting Address 

Add +10 to Term. Address 
Check Limit 

Starting Address (Variable) 

Return Jump - Check for Mag. Tape Eex-dnd Condition 

Jump Back to 2301 

Complete Block by setting final Term. Address 
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02340 



02350 



02360 



02370 



02400 



02410 



2301 

4335 
2304 
4321 
5606 
6544 
0502 
4203 

7101 
4566 

7775 
0000 

0045 
0047 
0001 
0057 

0005 
ooi4 

0024 

ooo4 
ooi4 

0024 

ooo4 
0030 

ooo4 
0047 
0016 

0057 
0003 
0006 
0001 
0012 

0003 
0011 

0004 

0047 

0022 

0057 
0030 
0001 

0030 
ooo4 
0047 
0016 

0057 

0003 

0012 
0015 



Reset Term. Address 

Reset Storting Address 

Incr. Paragraph Count 

NZB to Type Another Paragra]: 

Reset Paragraph Count 

licit to Test #U 

Paragraph count 

C.R. 
U.C. 
T 
L.C. 

h 



3P« 
a 



U.C. 

c 

L.C. 

o 

n 

t 

r 

o 

1 

SP. 

U.C. 

D 

L.C. 

a 

t 

a 

SP. 
U.C. 

c 

L.C. 
o 
r 
P 
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02420 



02^30 



02440 



02450 



02460 



02470 



0003 





0012 


r 


0030 


a 


0001 


t 


00l4 


i 


0003 





ooo6 


n 


0004 


sp. 


0001 


t 


0025 


7 


0015 


P 


0020 


e 


0031 


w 


0012 


r 


0014 


i 


0001 


t 


0020 


e 


0012 


r 


0004 


sp. 


0024 


s 


0015 


P 


0020 


e 


0020 


e 


0022 


d 


0004 


sp. 


0001 


t 


0020 


e 


0024 


s 


0001 


t 


0042 


• 


0004 


sp. 


0004 


sp. 


0047 


II. C. 


0001 


T 


0057 


L.C. 


0005 


h 


0020 


e 


0012 


r 


0020 


e 


0045 




0030 


a 


0012 


r 


0020 


e 


ooo4 


sp. 


0030 


a 


0015 


P 


0015 


P 


0012 


r 
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02500 0003 





0027 


X 


oo42 


• 


0004 


sp. 


0060 


7 


0056 





ooo4 


sr>. 


0022 


d 


02510 0020 


e 


0016 


c 


0014 


i 


OOOT 


m 


0030 


a 


0011 


1 


0004 


sp. 


0016 


c 


02520 0005 


h 


0030 


a 


0012 


r 


0030 


a 


0016 


c 


0001 




0020 


r» 


0012 


r 


02530 0024 


3 


0004 


sp. 


0015 


T) 
1 


0020 


e 


0012 


r 


0004 


3D. 


0011 


l" 


0014 


i 


02540 0006 


n 


0020 


e 


0042 


• 


0004 


sp. 


0004 


sp. 


0047 


u.c. 


0001 


T 


0057 


L.C. 


02550 0005 


h 


0020 


e 


0004 


sp. 


0024 


s 


0015 


p 


0020 


e 


0020 


e 



0022 d 
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02560 0004 sp. 

002k s 

0005 h 

0003 o 
003U u 

0011 1 

0022 d 
OOOk sp, 

02570 0023 b 

0020 e 

00^5 CR. 

0023 b 
0020 e 
0001 t 
0031 v 
0020 e 

02600 0020 e 

0006 n 

OOOh sp. 

007^ 1 

0056 

0004 sp, 
0030 a 
0006 n 

02610 0022 d 

OOOU sp. 

0074 1 

0070 2 

0004 sp. 
0016 C 

0005 h 
0030 a 

O262O 0012 r 

0030 a 

0016 c 

0001 t 

0020 e 

0012 r 
0024 
0004 



3 

3p« 



02630 0015 P 

0020 e 

0012 r 
0004 
0024 

0020 e 

0016 c 

0003 o 



sp, 
s 
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0261*0 


0006 


n 




0022 


d 




00U2 


• 




000U 


sp. 




0004 


sp. 




00^7 


U.C. 




0011 


L 




0057 


L.C. 


02650 


0003 







0031 


w 




0020 


e 




0012 


r 




0004 


sp. 




0016 


c 




0030 


a 




0024 


s 


02660 


0020 


e 




0050 


• 
» 




0004 


sp. 




0030 


a 




0023 


b 




0016 


c 




0022 


d 




0020 


e 


02670 


0026 


f 




0013 


g 




0005 


h 




ooi4 


i 




0032 


2 




0036 


k 




0011 


1 




0007 


ra 


02700 


0006 


n 




0045 


csu 




0003 







0015 


P 




0035 


q 




0012 


r 




0024 


s 




0001 


t 


02710 


0034 


u 




0017 


V 




0031 


w 




0027 


X 




0025 


7 




0021 


z 




0056 







0074 


1 
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02720 0070 2 
0064 3 
0062 k 
0066 $ 
0072 6 
0060 7 

0033 8 
0037 9 

02730 0052 

0044 / 
005^ * 

0046 + 
0042 . 
0050 j 
0040 , 

0002 - 

02740 0004 sp. 

0047 U.C. 

0034 U 
0015 P 
0015 P 
0020 E 

0012 R 
0004 sp. 

02750 0016 C 

0030 A 

0024 S 

0020 E 

0050 : 

0004 sp. 

0030 A* 

0023 B 

02760 0016 C 

0022 D 

0020 E 

0026 F 

0013 G 

0005 H 

0014 I 
0032 J 

O277O 0036 K 

0011 L 
0007 I! 

0006 N 

0003 

0015 P 

0035 Q 

0012 R 



161:55 



©3Q0O 


0024 







0001 


T 




0034 


U 




0017 


V 


, 


0031 


w 




0027 


Ji. 




0025 


I 




0021 


z 


03010 


0045 


O'L 




0056 


) 




0074 


^t, 




0070 


© 




oo64 


->/■ 

Tf 




0062 


-'*-, 

<j!> 




0066 






0072 





03020 


0060 







0033 


I 




0037 




0052 






oo44 


7 




0054 


!I 




0046 


O 




0042 


• 


03030 


0050 


• 
• 




0040 


$ 




0002 


♦ 




ooo4 


sp» 




0004 


sp. 




0030 


A 




0057 


L»C» 




0011 


1 


030i«) 


0011 


1 




ooo4 


sp. 




0036 


k 




0020 


e 




0025 


y 




0024 


s 




0004 


sp. 




0024 


s 


03050 


0005 


h 




0003 







0034 


u 




0011 


1 




0022 


d 




0004 


St), 




0024 


S 




0001 


t 
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03060 


0012 


r 




00l4 


i 




0036 


k 




0020 


e 




0004 


sp# 




0031 


w 




0014 


i 




0001 


t 


03070 


0005 


h 




0004 


sp. 




0034 


u 




ooo6 


n 




ooi4 


i 




0026 


f 




0003 


o 




0012 


r 


03100 


0007 


m 




ooo4 


sp. 




0026 


f 




0003 







0012 


r 




ooi6 


c 




0020 


e 




0042 


• 


03110 


0004 


sp. 




0004 


sp. 




0047 


U.C. 




0030 


A 




0057 


L.C. 




0011 


1 




0011 


1 




0045 


CR. 


03120 


ooi6 


C 




0005 


h 




0030 


a 




0012 


r 




0030 


a 




ooi6 


c 




0001 


t 




0020 


e 


03130 


0012 


r 




0024 


s 




0004 


sp. 




0024 


s 




0005 


h 




0003 







0034 


u 




0011 


1 
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o3i4o 


0022 


d 




ooo4 


sp. 




0023 


b 




0020 


e 




0004 


sp. 




0011 


1 




0020 


e 




0013 


g 


03150 


0014 


i 




0023 


b 




0011 


1 




0020 


e 




0004 


sp. 




0031 


w 




ooi4 


i 




0001 


t 


03160 


0005 


h 




0004 


sp. 




0001 


t 




0005 


h 




0020 


e 




0004 


sp. 




0036 


k 




0020 


e 


03170 


0025 


7 




ooo4 


sp. 




0015 


P 




0012 


r 




0020 


e 




0024 


s 




0024 


s 




0034 


u 


03200 


0012 


r 




0020 


e 




0004 


sp. 




0016 


c 




0003 







0006 


XX 




0001 


t 




0012 


r 


03210 


0003 







0011 


1 




ooo4 


sp. 




0024 


s 




0020 


e 




0001 


t 




ooo4 


sp. 




0030 


a 
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03220 



03230 



03240 



03250 



03260 



032T0 



0001 


t 


ooo4 


sp. 


0021 


z 


0020 


e 


0012 


r 


0003 





oo42 


• 


0045 


CR. 


0047 


U.C. 


0023 


B 


0057 


L.C. 


0030 


a 


0004 


sp. 


000^ 


sp. 


0061 


BS. 


0061 


BS. 


0016 


C 


0036 


T7* 


0024 




0015 


P 


0004 


sp. 


0016 


C 


0020 


E 


0004 


sp. 


0061 


BS. 


0061 


BS. 


0061 


BS. 


0061 


BS. 


0030 


a 


0016 


c 


0020 


e 


0004 


sp. 


0003 





0015 


P 


0020 


e 


0012 


r 


0030 


a 


ooo4 


sp. 


0061 


BS. 


0001 


t 


0014 


i 


0003 





0006 


n 


0004 


sp. 


00l4 


i 


0024 


s 


ooo4 


sp. 


0006 


n 
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03300 



03310 



03320 



03330 



03340 



03350 



ooo4 


sp. 


0004 


sp. 


0004 


Sp. 


ooo4 


sp. 


0004 


SB. 


006l 


BS. 


006l 


B3. 


0061 


333. 


0061 


B3. 


0061 


BS. 


0003 





0031 


w 


0004 


ST). 


0023 


b* 


0047 


U.G. 


0004 


sp. 


ooo4 


sp. 


0004 


sp. 


0004 


sp. 


0061 


TO? 


0061 


BS. 


0061 


BS. 


0061 


BS. 


0057 


L.C. 


0020 


e 


0014 


i 


0006 


n 


0013 





0004 


sp. 


0061 


Bo. 


0045 


GH. 


0016 


C 


ooo4 


sp. 


0004 


sp. 


0004 


sp. 


0004 


sp. 


ooo4 


sp. 


0004 


sp. 


0004 


sp. 


0004 


sp. 


0004 


sp. 


0004 


sp. 


0061 


BS. 


0061 


BS. 


0061 


BS. 


0061 


BS. 


0061 


BS. 


0061 


BS. 
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03360 0061 bs. 

006l BS. 

006l BS. 

0061 BS. 

0005 h 

00U7 u.c. 

0004 

ooo4 



sp. 

ST). 



03370 0004 sp . 
0004 sp. 
0004 
0004 



sp 
sp. 



— - t.^ 
0004 sp 

ooo4 sp. 

0004 

ooo4 



sp. 
sp. 



03 l »00 0061 BS. 

006l BS. 

0061 BS. 

0061 BS. 

OO6I BS. 

0061 BS. 

006l BS. 

006l BS. 

03410 006l BS. 

OO6I Bs. 

0057 L.C. 

0020 e 

0004 S p. 

0036 k 

ooo4 sp# 

0004 sp . 

03420 ooo4 sp. 

006l BS. 

0061 BS. 

OO6I BS. 

0020 e 

0004 sp . 

006l BS. 

0022 a 

03430 0061 BS. 

OO6I BS. 

0061 BS. 

OO6I BE. 

0016 G 

0004 sp. 

0004 sp. 

0004 sp. 



161:61 



0344o oo42 
0045 

0045 
0045 
0047 
0006 
0003 

0004 

03450 0015 

0012 

0003 
0023 

0011 
0020 

0007 

0004 

03460 0050 
ooo4 

0024 

0005 

0014 

0015 

0004 
000? 

034TO 0020 
0004 
0042 
0045 

0051 

0045 
0000 
0004 



GR. 

ca. 

CR. 

u.c. 

IT 

sp. 

p 

R 

B 
L 
E 
M 
sp. 



sp. 
S 

H 
T 
P 
sp, 

M 

E 
sp. 

ca. 

Tab. 
CR. 



03500 2300 
1603 
6003 
0000 
7643 
4701 
4560 
2303 

03510 1700 
6002 
0000 

2700 
3310 

6002 

0000 

2713 



Test Load Specific Instruction 



Variable 

Set Variables 



Test Selective Complement Specific Instruction 

Error 

Test Load Complement Specific Instruction 



irror 
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03520 



03530 



035to 



03550 



03560 



03570 



1300 
6002 
0000 

2717 
3300 
6002 

0000 

2323 

3700 
6002 

0000 

2327 
4300 

3731 

6002 

0000 

U73U 

1*700 

3736 

6002 

0000 

0U25 

53^2 

0U25 
5300 

37^5 

6002 

0000 

5750 
5700 
3752 

6oo4 

0000 

5U61 
5U61 
1+701 
U702 
230U 
0103 
1+306 

3706 
6003 
0U01 

0000 

2312 

0110 
0110 

U315 



Test Logical Product Specific Instruction 

Error 

Test Add Specific Instruction 

Error 

Test Subtract Specific Instruction 

Error 

Test Store Specific Instruction 

Error 

Test Shift Replace Specific Instruction 



^rror 

Set Variable 

Test Replace Add Specific Instruction 



Error 

Test Replace Add One Specific Instruction 



iiirror 

Variable 

Variable 

Set Variables 



Test Left Shift Two 



Error 

Set Variable 
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03600 


2317 
0111 
1*321 
3721 
6003 
01*01 


Teat Left Shift Six 




0000 


Error 




01*12 


Test Multiply by Ten 


03610 


0112 
3601* 
6001* 
01*01 






0000 


Error 




011*1* 


Constant 




2206 
0111* 


Test Right Shift One 


03620 


3605 
600$ 

01*01 






0000 


Error 




252$ 






1252 


Constant 




2212 


Set Variable 




0111* 




03630 


0111* 
1*207 






2207 


Test Right Shift Two 




0115 






1*205 






3603 






6001* 






0000 


Error 


0361*0 


5252 


Variable 




5252 


Variable 




$601* 


Incr. Shift Count 




6113 


Continue Shift Test 




6026 


Jung) Out of Shift Test 




5252 


Variable 




7770 


Shift Count 




2702 


Complement Variable 


036#> 


1*303 
1*311 
1*311 


Reset Variables 




7100 


Test Return Jump 




3663 






7121 






7101 


Jump Back to Test Righi 




3626 
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03660 0000 Error Ret. Jump 
0000 
7101 

3660 Jump Address (Variable) (3655) 
5603 
6103 
Grik 
0000 

03670 7101 
3700 
0507 Reset Shift Count 

7101 Jump Back to Complement Variables 

3650 

3677 

7117 

03700 7100 Return Jump - Check for Mag. Tape Rewind Condition 
6031 
7101 
3500 
6104 

7777 
7101 
0100 

03710 OU25 
6111 

7100 Return Jump - Check for Mag. Tape Rewind Condition 
6031 

7101 Exit to Type Status for Test #1 
61*31 

3712 
0000 

03720 0000 
0000 

7625 
7101 
3752 

01*52 
7625 

otoo 

03730 6J*i6 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
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037^ 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

03750 0000 
0000 

Ol*76 
0000 

oi*oo 
61*7 
0000 
0000 

03760 oooo 

0000 
0000 
0000 
0000 
0000 
0000 

oooo 

03770 oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

oi*ooo 3131 
3233 
3^35 
3637 
l*Ol*l 

1*21*3 
1*41*5 
1*61*7 

oi*oio 5051 

5253 
51*55 
5657 
6061 
6263 

61*65 

6667 



161:66 



OlK)20 7071 
7273 
7^75 
7677 
0000 
0000 
0000 
0000 

0U030 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

okoho 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0H050 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

oi»o6o 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0l»070 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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04100 



o4no 



o4oo 
4225 

4226 
7100 
6031 
7500 
4102 
7600 

0120 
4216 
36lU 
6l4o 
5612 
7500 
4104 
2211 



Entrance for Test #6 

Reset Comparison Data 

Reset Punch Data 

Return Jump - Check for Mag. Tape Rewind Condition 

Exf . - Reader 

Input to "A" 

Clear Interrupt Lockout 
Store Reader Data 
Compare with Punch Data 
Jump forward on Error 
Incr. Data 
Exf. - Punch 

Load Punch Data 



04120 



7677 Output 

0120 Clear Interrupt Lockout 

5606 Incr. Punch Data 

3I4.32 Check Limit 

6012 Jump Forward at End of Block 

6522 Jump Back to Read - Punch 

0000 Comparison Data 

0000 Reader Data 



04130 



04l40 



04150 



0000 
0000 
0000 
0000 

7720 
7720 

0400 

4311 

4310 
5704 
6004 
6540 

0000 
0000 

2312 
4312 

7101 
6454 
0000 

2324 
7701 
2327 
7702 
6443 



Punch Data 



Constant 

Variable Block Count 

Reset Comparison Data 

Reset Punch Data 

Incr. Block Count 

Jump Forward when Block Count • 

Jump back if Block Count<578 



Reset Block Count 



Exit to Type Test #6 Status 



Load Reader Data 

Halt 

Load Comparison Data 

Halt 

Jump Back to Resume Test #6 
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o4l6o 



04170 



04200 



04210 



04220 



04230 



6544 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

2200 
0000 

7615 

0400 

2303 
3620 
6005 
2216 

0000 

2310 
7700 
5712 

0277 
4314 
5616 
3614 

6006 
7100 
6031 
7101 

4200 
0000 

o4oo 
4302 

4327 
4203 
7101 

0100 
0000 
0000 
0000 
0000 



Jump Back to Resume Test #6 



Entrance for Test #1 

Comparison Data 

Half Write Indirect (ML. 15 contains 422$) 

Clear "A" 

Load Comparison Data 

Compare Data 

Load "A" with Error Data 

Error Halt 

Load Comparison Data 

Halt 

Incr. Comparison Data 

Save Lower 6 Bits 

Incr. Test Count 
Check Test Count Limit 



Return Jump - Check for Mag. Tape Rewind Condition 

Jump back to continue H.W.I. 

H.W.I. Data 
Reset H.W.I. Data 



Reset Comparison Data 

Reset Test Count 

Jump to Continue Test #1 

Test Count 
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o42to 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0^250 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

04260 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0^270 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oieoo 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0^310 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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0^320 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0^330 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

043^0 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

01*350 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0U360 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0^370 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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oUtoo oooo 
oooo 

0000 

oooo 
oooo 
oooo 
oooo 
oooo 

oWno oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

6kk2o oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

okhso oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

oWOw oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

0UU50 oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
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okk6o 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

OkhjO 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0^500 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0U510 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0^520 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

01*530 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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0U5UO 



C&550 



0^560 



OU570 



Ok6oo 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 

7100 
6031 

756^ 
7272 
0030 

0120 

2027 
3^30 
6012 
2027 

0000 

2030 
7777 

7551 
7600 

0120 

3^30 
6504 



Return Jump - Check for Mag. Tape Rewind Condition 



Reader Input - one frame 



Clear Interrupt Lockout 

Compare Data 



Load Error Data 

Error Stop 

Load Correct Data 

Halt 

Search for Sync. 

Clear Interrupt Lockout 



Mask Off Lower 6 Bits 



04610 2030 
121*6 
6156 
221+0 Load 7i*00 
3030 Add Punch Data 
k202 Set w 0TN" 



7537 
7^77 



Output xxOO 
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04620 



04630 



0120 

5637 
6154 
5430 
T530 
7600 
0120 
4027 

3430 
6012 
2027 

0000 
2030 
7777 
7516 
7600 



04640 



04650 



o466o 



04670 



0000 

0000 

7627 

0027 
0400 

4030 
7101 
6443 

7512 
7310 
0031 

0120 
5714 
6452 
7101 
5003 



Clear Interrupt Lockout 

Incr. Frame Count 

Jump to Delays 

Incr. Data 

Read and Punch to End of Block 

Clear Interrupt Lockout 



Compare Data 

Load Error Data 
Error Stop 
Load Correct Data 
Halt 

Search for Sync. 



0120 Clear Interrupt Lockout 

3430 

6504 . 

7512 Punch out from M.L. 30 

7335 

0031 

0120 Clear Interrupt Lockout 

2030 

3433 Check Level Limit 

6013 

6527 

7400 Constant 

4102 Exf . Reader Code 

4104 Exf. Punch Code 

0377 Spare 

7700 Mask 



Frame Count 

Delay #2 

Count for Delay #2 

Reset Data to zero 

Ind. Jump to Type Out Test Status 

Output 01XX, 02XX, 03XX 



Clear Interrupt Lockout 
Incr. Frame Count 

Ind. Jump 

Variable Address (4705") (4731) (4746) 
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oVfOO 0027 Starting Address - Read 

0030 Starting Address - Punch 

4104 Exf. Code - Punch 

7627 Constant 

U73I Constant 

5724 Incr. Delay #2 
6601 

0400 Reset Delay #2 

04710 4327 

51*30 Incr. Data 

31*32 Check Limit 

6103 

0400 Set Data to Zero 

1*030 

5734 Incr. Count for Delay #2 

6002 

04720 7106 Ind. Jump to Start of Punch - Read 

2316 Reset Count for Delay #2 
4340 

2317 Change Variable Address at M.L. 1*677 
^325 

7101 Ind. Jump to Start of Punch - Read 

1*566 

7101 Count for Delay #3 

01*730 4746 Constant 

5430 Incr. Data 

3^32 Check Limit 

6103 

0400 Reset Data tte Zero 

4030 

5707 Incr. Count for Delay #3 
6002 

I 
04740 7127 Ind. Jump to Start Punch - Read 
231^ Reset Count for Delay #3 
4313 

2313 Change Variable Address at M.L. 1*677 
1*3^5 

7122 Ind. Jump to Start Punch - Read 
5622 incr. Delay #1* 
6501 

01*750 2221 Reset Delay #U 
1*217 

5430 Incr. Data 
3432 check Limit 
6103 

0400 Reset Data to Zero. 
4030 
56l4 Incr. Count for Delay #1* 
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oVf6o 6002 

7106 Ind. Jump to Start Read - Punch 

2212 Reset Count for Delay #U 

l»-210 

2211 Change Variable Address at M.L. i»677 

U366 

7101 Ind. Jump to Start Read-Punch 

U566 

OkTTO 6007 Delay #U 

6007 Constant 

0377 Spare 

71*77 Count for Delay #U 

721.77 Constant 

5003 

7007 Variable 

7007 Constant 

05000 7U27 Variable 
7327 Constant 

2301 Set Ind. Address 

k026 

5707 Delay #1 

6501 

2310 Reset Delay 

05010 ^312 

5^30 Incr. Data 

3^32 Check Limit 

6103 

0400 Reset Output Data 

U030 

5716 Incr. Count for Delay #1 

6003 

05020 7107 Ind. Jump to Start of Read - Punch 
^705 

2321 Reset Count #1 
4323 

2303 Change Variable Address at M.L. 1*677 
kl26 

7101 Ind, Jump to Start of Read - Punch 
4566 

05030 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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350UO 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05050 



05060 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05070 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05100 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05110 



0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
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05120 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

05130 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

051*K) 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

05150 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

05160 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

05170 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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05200 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05210 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05220 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05230 



052*10 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05250 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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05260 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



052TO 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05300 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05310 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05320 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



05330 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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053^ 



05350 



05360 



05370 



05^0 



051+10 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 

7515 
7213 
6512 

0120 

7512 

7^5 

7306 
6512 

0120 

7100 

6031 

6011 
6500 

1+220 
^210 
0000 
0000 
0000 
0000 
0000 

7521 

7217 
6700 

0120 

3614 

6to5 
3212 

7512 



Entrance for Test #5" - Type in 10 characters 

Term. Address 

Clear Interrupt Lockout 

Output 10 Characters 



Clear Interrupt Lockout 

Return Jump - Check for Mag. Tape Rewind Condition 

Jump Forward to 51j07 
Starting Address 

Exf . Code - Typewriter Input 
Exf . Code - Typewriter Output 



Input up to Max. 127 Characters - followed by manual disconnect, 



Clear Interrupt Lockout 



Set Term. Address for Output 
Type Out 
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05420 


7445 
7306 






6500 


Variable Address 




0120 


Clear Interrupt Lockout 




7100 






6031 






6005 






6500 


- 


05430 


^220 


Exf • Code - Typewriter Input 




4210 


Exf . Code -. Typewriter Output 




0000 






2304 






4025 






7510 

7600 

0120 


Typewriter Input 






05440 


4125 

0745 

6oo4 
5425 
6507 
4220 
5425 
4203 




05450 


7505 
7305 
6700 

0120 
6103 
4210 
6500 
7100 


Typewriter Output 


0546o 


6031 
7505 
7445 
0001 






7101 
5470 
4210 


Jump to 7I1XX Typewriter Output 








0000 




05470 


7447 


UC 




7401 


T 




7457 


LC 




7405 


h 




7420 


e 




74o4 


sp 




7411 


1 




7430 


a 
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05500 7^21 z 

7^25 y 

jkOk sp 

7^22 d 

7^03 o 

7^13 g 

7U0U sp 

7^32 j 

05510 7^3^ u 

7^07 m 

7M5 P 

lh2k s 

ihoh sp 

7^03 o 

7 1 «-17 v 

7^20 e 

05520 7^12 r 

jkok sp 

ihOl t 

7k05 h 

7^20 e 

7^0^ sp 

7^35 q 

7^ u 

05530 7^1^ i 

7kl6 c 

7^36 k 

7^04 sp 

7^23 b 

7^12 r 

7^3 o 

7^31 w 

055^0 7^06 n 

7^0^ sp 

7^26 f 

7^03 o 

7^27 x 

7^2 . 

7^04 sp 

74oU sp 

05550 7^56 

7*+74 1 

7^70 2 

lh6k 3 

7^62 U 

7^66 5 

7^78 6 

7k&& 7 
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05560 


7^33 


8 




7^37 


9 




7^52 


- 




Jkkh 


/ 




7^ 


1 




lhk6 


+ 




7^20 


• 




7^50 


• 

i 


05570 


7^0 


f 




Jk02 


a 




7^5 


CR 




Thhl 


UG 




7^56 


) 




ikfk 


* 




7^70 


@ 




7^6^ 


# 


05600 


Jk62 


$ 




lk66 


% 




7^72 


t 




7^60 


Ft 




7^33 


1 

2 




7^37 


( 




7J+52 






Jkkk 


7 


05610 


7k5k 


II 




lhk6 







7*^2 


• 




7^50 


• 
■ 




Ikho 


> 




7^02 


* 




7^-2 


• 




7*^1 


B3 


05620 


7^2 


f 




7^51 


Tab 




7^5 


CR 




0120 


Clear Interrupt 




0^00 


Clear "A" 




7101 


Exit to Test #6 




MOO 






0000 




05630 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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05640 



05650 



05660 



056TO 



05700 



05710 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 

oooo 

0000 
0000 
0000 
0000 

0001 
0400 
0021 
4211 
2610 
4100 
0000 
5605 

5702 
6505 
0020 

6oo4 

0000 
0000 
0000 

7500 



5 tore Data in Bank 1 

Set Ind. Bank to 1 
Reset Data 
Complement Data 

Variable Address (0000 - 7776) 
Incr. Data 

Incr. Address 

Set Ind. Bank to Zero 



Sel. Mag. Tape - Binary Mode 
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05T2O 1171 

7500 Rewind Load 

ll6l 

7500 Check for Load Point 

llUl 

7600 

0120 

07^ 

05730 6505 

6020 Load Point Jump Forward 

0000 
6k03 
2301 Change Instruction from 7500 to 6U03 

laoo 

6033 

01*00 

057^ 0601 
6501 

7500 Check for Parity Error 

llUl 

7600 

0120 

0704 

6102 

05750 6035 

0^00 Set Buffer Entrance 

0105 

5753 

0501 Set Buffer Exit 

0106 

5755 

7500 Write A/D 

05760 2111 

0120 Clear Interrupt Lockout 

7300 Initiate Buffer Output 

5762 

5605 Incr. Block Count 

6102 

6006 

7101 Jump 

05770 6070 

7700 Block Count 

7700 

6052 

2301 Set Jjjmp Address 

4023 

230^ Reset Block Count 

U-306 
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06000 



06010 



06020 



06030 



o6o4o 



06050 



2024 
7020 
0000 
7774 
7774 
5701 

6io4 
2304 

4304 

7777 
2321 
0701 
4323 
7500 
1121 
7600 

0120 
5603 
6501 
6452 
0000 
0000 

6403 

0400 

7101 

0000 

o4oo 
6403 
ll4i 
7600 
074o 
6510 

2307 

4020 

2314 
4310 
0601 
6501 
4024 
7101 

6100 
6100 
2301 
4023 
o4oo 
0601 
6501 
7500 



Load Data in "A" at Buffer Interrupt 
Jump to Address in ML. 20 



Reset Trial Count 



Backspace for Re-write 



Changed to 7500 while Tape is Rewinding 

Check for Load Point 

Change Jump Address 

Change Instruction from 75"00 to 6J4O3 

Delay 

Jump to Read or Write 
Variable Address (57j&) 
Change Variable Address 

Rewind Load 



161:88 



o6o6o 



05070 



OolOO 



1161 

0120 
2303 
4330 
2313 
4315 
2024 
7020 

2204 
4023 
2024 
7020 
5734 
COCO 
0000 
0000 

o4oo 
0601 
6501 
o4oo 
0105 
6io4 
0501 
0106 



Change Instruction from 6403 to 7500 

Reset Variable Address 

Load Data 

Jump to Address in ML. 20 

Set Jump Address 

Load Data Stored at Time of Interrupt (initial data-level selection) 
Jump to Address Determined by Buffer Interrupt (initial address OOOD) 
Address 



Start Read of Mag. Tape 



Set Buffer Entrance 



Set Buffer Exit 



Gol.10 



06l20 



O0I30 



0IO7 
7500 
2131 
0120 
7200 
6ll4 
2207 
4023 

2206 
4ioo 
6033 

2024 
7020 
6130 

6403 
0000 

o4oo 
6501 
7500 
il4i 
7600 
0120 
0704 
6102 



Read A/D 

Clear Interrupt Lockout 
Initiate Buffer Input 

Change Jump Address 



Change 7500 Instruction to 6403 



Load Data 

Jump to Address in ML. 20 

Constant 

Constant 



Check for Parity Error 



161:89 



o6i4o 



6062 
o4oo 
0021 

4204 
4212 
2611 
3500 
0000 



Comparison Test 
Set. Ind. Bank to One 
Set Ind. Address 
Set Comparison Data 
Load Comparison Data 
Compare 



06l50 



06I0O 



06170 



06200 



b002 
6106 
5703 
5603 
6507 
6007 
0000 

2310 

7777 
6507 
64lO 
0000 
0020 

o4oo 
6501 
0105 

6167 
0501 
0106 
6172 
7500 
2131 

0120 
7200 

6177 
5613 
6003 
2024 

7020 
2206 
4023 
2206 



OK 

Jump to Error Stop 
Incr. Ind. Address 
Incr. Data 



Comparison Data 

Load Error Address (Data should be Complement of Address) 

Error Halt 



Set Ind. Bank to Zero 



Set Buffer Entrance 



Set Buffer Exit 



Read A/D 



Initiate Buffer Input 



Incr. Block Count 

Load Data 

Jump to Address in ML. 20 

Set Variable Address 

Reset Block Count 



06210 



4204 

2024 

7020 
6250 
7702 
7702 

0000 
0000 



Load Data 

Jump to Address in ML* 20 

Constant 

Block Count 
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05220 



06230 



06240 



06250 



062o0 



06270 



7774 
7774 
5701 
6lo4 
2304 
430*1 
7777 
2313 

0701 

4313 
o4oo 
0601 
6501 
7500 
1121 
7600 

0120 
o4oo 
6501 
7101 
6100 
0000 
0000 
0000 

o4oo 
0601 
6501 
7500 
1161 

0120 
2213 
4023 

2210 
4100 
6050 
-2310 
4100 

6033 
2024 
7020 

5734 

5751 
0000 
0000 
0000 
0000 
0000 
0000 



Backspace Count 
Incr. Backspace Count 

Reset Trial Count 

Stop after 3 Trial Re-reads after Parity Error 



Backspace One Record 



Clear Interrupt Lockout 



Jump to Read Mag, Tape 



Rewind Load 



Change Jump Address 



Change Jump Address 



Change Instruction from 6403 to 7500 



Load Data 

Jump to Address in ML. 20 

Constant 
Constant 
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Ob300 



06310 



4024 
2210 
4023 
2207 
4ioo 

ma 

oi4i 
7101 

5700 
5734 
7700 

0000 
0000 
0000 
0000 
0071 



Start of Map. Tape Test 
Set Jump Address 

Set Block Count 



Set Buffer Bank to 1 
Jurip to Write 



06320 



0060 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



06330 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



06340 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



06350 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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06360 



06370 



o64oo 



o64lo 



06420 



06^30 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 

7100 
6031 
7506 

7306 

6431 
0120 

7101 
5363 

4210 
6407 
0045 

0047 
0001 
0020 
0024 
0001 

ooo4 
0064 
ooo4 

0057 
0062 

0004 
0047 
0003 

0042 

0036 

0042 

0045 
0474 
4311 
2215 
4330 
6540 
0470 

4316 



Return Jump - Check for Mag. Tape Rewind Condition 
Type Out Test Status 



Clear Interrupt Lockout 

Ind. Jump 

Variable Address (2335) (4200) (2036) 

Exf . Code - Typewriter 

Starting Address 



Variable Character (70) (72) (74) 



Entrance From Test #1 



Entrance from Test #2 
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06440 



06450 



o646o 



2211 

^335 
65U5 

0462 

4323 
2205 
4342 

6552 

2036 
2301 
5363 

4200 
0472 
4334 
2303 
4353 

6563 
0000 
0000 

0000 
0000 
0000 
0000 
0000 



Entrance from Test #h 



Address 
Address 
Address 
Address 
Entrance From Test #6 



06470 



0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 



06500 



2562 
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NUMBER: T040 

TITLE: Buffer and Interrupt Test 

CATEGORY: 160-A, 161 
MINIMUM EQUIPMENT NEEDED: 

PURPOSE 

The buffer and interrupt test employs the typewriter on the buffer input /output 
channel to test the buffer as well as manual and buffer interrupts. 

DESCRIPTION 

The routine starts with an initial type-out, establishes an input buffer of 100g 
characters, then goes into a non- terminating subtract routine to keep the computer 
running while buffering takes place. Buffer input will terminate when 100g characters 
have been received by the computer or when the typewriter delivers a disconnect 
signal. 

At completion of the buffer input the computer will continue to run the non-terminating 
routine until it receives a manual interrupt. The manual interrupt causes the com- 
puter to set up a buffer output of the same characters that were received by the input 
buffer previously. Visual check of the type- out will show any errors. 

The buffer interrupt which occurs following the buffer input is ignored. 

The buffer interrupt following the buffer output causes the computer to again establish 

an input buffer of 100„ characters and the entire routine is repeated. 

OPERATING INSTRUCTIONS 
LOAD INSTRUCTION: Paper Tape 
LOADING ADDRESS: 0000 

TERMINAL ADDRESS: 0147 
CHECK SUM: 7670 

STARTING ADDRESS: 0000 

Master clear and run. After the initial type- out, IBA should appear in the status 
display. 
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OPERATING INSTRUCTIONS (Cont'd) 

The computer is now ready for the typewriter input. 

Upon termination of the buffer input IBA will disappear from the status display. 

The computer will continue to run awaiting a manual interrupt. Depress any 
selective jump switch with any selective stop switch to give a manual interrupt. 
This should cause OBA to appear in the status display and the typewriter will 
type out the same characters that were typed into the computer. 
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T 040 



T 040 BUFFER AND INTERRUPT TEST 

0000 7101 

0001 0100 Jimp to program 

0002 0120 

0003 2200 
OOOlj 7776 

0005 0701 

0006 6501 

0007 6Ii0li 

0010 

0011 0120 

0012 7101 

0013 006ij Jump to buffer output 
OOllt 

001? 
0016 
0017 

0020 

0021 0107 

0022 h0h3 

0023 0120 

0021 7101 (7020) Jump following 

0025 00^0 buffer interrupt 
0026 
0027 

0030 20l4t 

0031 i*02li 

0032 710li 

0033 20^5 
003k ii02li 

0035 7101 

0036 0002 
0037 

OOijO 1000 Buffer input starting address 

OOI4I 1000 Buffer output starting address 

00^2 1100 Buffer input terminating address 

00li3 2000 Buffer output terminating address 

OOljIt 7020 

001)5 7101 
OOI16 
001j7 
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T040 



oo5o 


7500 


oo5i 


L220 


0052 


20hO 


0053 


0105 


0051* 


0050 


oo55 


20l*2 


oo56 


0106 


oo57 


0050 


0060 


7200 


0061 


0050 


0062 


7101 


0063 


0030 


0061* 


7500 


0065 


1*210 


0066 


201*1 


0067 


0105 


0070 


0061* 


0071 


201*3 


0072 


0106 


0073 


oo61* 


0071* 


7300 


0075 


006I* 


0076 


7101 


0077 


0033 


0100 


75oo 


0101 


1*210 


0102 


7305 


0103 


011*3 


010I4 


7101 


0105 


0050 


0106 




0107 


0110 


0110 


ool*5 


0111 


001*7 


0112 


0023 


0113 


0057 


OlUt 


0020 


0115 


0013 


0116 


OOll* 


0117 


0006 



Select typewriter input 
Set to incut buffer 



Initiate input buffer 



Select typewriter output 



Initiate output buffer 

Select typewriter output 
Initial type-out 

Jump to buffer input 
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T 040 



0120 


00014 


0121 


0001 


0122 


0025 


0123 


0015 


0121; 


0020 


0125 


0031 


0126 


0012 


0127 


OOlli 


0130 


0001 


0131 


0020 


0132 


0012 


0133 


OOOij 


013U 


OOlIt 


0135 


0006 


0136 


0015 


0137 


0031* 


OlitO 


0001 


Oliil 


qolt5 
^oli5 


011x2 


01L3 




oilOj 




01L5 




OII16 




011*7 
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NUMBER: T-6MT 

TITLE: Quality Assurance Magnetic Tape Test 

CATEGORY: 160-A, 162, 163 and 164 

MINIMUM EQUIPMENT NEEDED: 160-A, 162 or 163, or 164, 161 optional 

PURPOSE 
Comprehensive test of tape transports as well as thorough test of logic circuits. 

DESCRIPTION 

1. See flow chart. 

2. When SLJ1 is dropped, the program will complete 1 pass and do a rewind unload. 
Another tape transport may be manually selected as Unit No. 1 and the program 

re -run from P = 0000. After the second rewind unload, the reels of tape from each 
unit may be changed and checked for compatability by starting at P = 0444. 

3. SLJ4 will keep the program in the servo test. When jump 4 is dropped, the program 
will advance to the creep test. 

4. SLJ2 will keep the program in the creep test. During this test the reels should have 
a slight forward movement. Dropping jump 2 will allow the program to advance. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 1st sect. 0000 2nd sect. 7000 

TERMINAL ADDRESS: 1471 7722 

CHECKSUM: 0162 0162 

STARTING ADDRESS: 0000 

ADDITIONAL INSTRUCTIONS: 1) SLJ1, 2 and 4 on (up). 

2) Use typewriter (161) to monitor errors. 

3) Program may be run in any available memory 
bank by manually setting the desired banks. 

HALTS EXPLANATION 

SLS 1 "A" = Error data address. 

NOTE: For operation without the use of a 161 typewriter, the operator 
should enter stops in the program at each exit from the main 
program to the typewriter program. These exits are circled 
in the program annotation. 
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Q.A. MAGNETIC TAPE TEST 



& 




< Rewind \ 
load J 



Write A/D 
76g blocks 

2 552 pattern 
lOOOg words 



Write 77 8 \ 
file marks/ 



Write 10 8 

blocks a 

pattern 



Write 20, 

blocks shifted 

bit pattern 



Write binary 

count 120a 

blocks BCD/ 

binary 



Search 
forward file 

mark "W" 



-» T,, T-. T,, T 7 . or T s 



G> 



/Backspace 
"\151q records/ 



-^ 



(^y-T^t^F) { ^5» ) <; 



* Compare 
data 



Search 
forward 77c 
file marks 



Par. Error 



Par. Error 



^ / I't^n \ /coJ r eV f b ££l% d \ /<■ 

'J V 10 8 blocks / V ala / V bit pattern / \ 



°iftad ) fi^T\ 



J 



Read binary 

count 120g 

blocks BCD/ 

binary 



*"* 'ii;>'ifi''i7'MS'MO''on' or ■'" 



Sense Erro; 



15' J 16' *17' 1 18' J 19' *20' U1 A 21 



Search 

forward over 

file mark "W" 



< 



i T 



Check 

illegal 
BCD 



/Write, back 
[space read, and 
I compare var. 
\block lengths 



Force 
illegal 
BCD 



Write 
binary 
A/D 
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Q. A. MAGNETIC TAPE TEST 



00000 



00010 



7110 
2552 
2000 
3000 
2000 
7701 
7700 
0000 

0100 
3000 



00020 



00030 



oooto 



00050 



7770 
0000 
7767 
1*000 
4014 

0000 
0000 

0000 
0000 
0001 
7757 
0000 
4015 

4115 
4015 
4il4 
7720 
5000 
6000 
5000 
7626 

2111 

2511 

0601 
5015 
5015 
4ll4 
6000 
7000 

0000 

6700 
7750 

7626 

1101 

1076 
7635 

7773 



Jump to 0100 Ind. 
Constant 
Variable Adr. 
Constant 
Constant 

76 Blook count #1 

77 File mark oount 
delay count 



Variable Adr. 
Constant 
Consecutive l* s 
dL information 
«10 Block Count 
Variable Adr. 
Constant 



or O's count 



Variable #2 

-20 Blook count Var. #3 

Binary count Var. #4 

Variable 

Constant 

Constant 

Constant 

Variable #6 

Variable 

Constant 

Constant 

Backspace count Var. #8 

Constant 
Constant 

Constant Ind. Adr. 
Variable #9 
Constant 
Constant 
Variable #10 
Constant 

Variable #11 

Constant 

Pass count #12 

Constant 

Ind. Adr. 

Indo Adr. 

Shift count (Var) 



162:3 



00060 



00070 



00100 



00110 



00180 



00130 



0900 

7655 

0000 

753* 
0000 
0000 

as 

0650 

07* 

07& 
i nn 

1435 

1335 
0076 

4654 

aoo4 
toot 
0576 

4005 
0577 
4006 
0400 
4007 

4014 
40* 
4050 

aoos 
4011 
0507 
4013 
0510 

4015 

aoia 

4016 
0401 

4oa4 
050 

4015 

1031 

4027 
0550 
4033 
t036 
4034 
»53 
4037 
t044 



Raaarrad tor lap. diaoonnact Xm$X 

Ind. addreaa - Constant 

flE)«xit 

ConVarsion Juap addraaa 

Corraot data 

Data addrasa 

axit for tie 

•xlt for Tj.2 

axit for 7\k 
axit for T18 
•xlt for T2X 
•xlt for T26 
•xlt for T31 



Random number 
Reset Var. to 2000 
Reset - 76 Block count 
Reset file aark count 
Res«t delay 

Reset o^- , 
Ras*t binary count 
Reset Var. #11 
R«a«t Var. to 3000 

R*Ht lVior O^oount 

R»sat -10 Block count 

Reset Var. to 4000 
Reset Var. #2 
Rasat -20 Block count 
R«Mt Var. to J+015 

Raa«t Var. #6 
Raaet Var. #7 
Raaat backspace count 

Rasat Var. #9 
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001*0 



*K*3 
»35 



00150 



00160 



00170 



ooaoo 



ooao 



0587 

SE 

4l48 
»36 

4l$4 
8035 
4155 
7101 

oaoo 

0000 
0000 

oooo 
oooo 

0000 

oooo 
oooo 

oooo 
oooo 
oooo 
oooo 

oooo 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

7554 
755^ 
7600 
0301 
6103 
7161 

7157 
1001 

4ioa 

5408 

gs 

aoc* 

4008 

7540 
7536 



Reset Var. #10 to 6000 
Reset pass oount #12 
Reset Instruction 
Reset Var. Start Adr. (read) 

Reset Varo Start Adr. (write) 
Juap to start test 



Sel. Odd parity 
Cheek for binary snde 



To ® error seleet 

Set data to 2552 from ML 2000 to 3000 



Reset Adr. Variable 

Sxf. Rewind load 
Che ok for load point 
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00220 7600 
0340 

6503 

5wT Prog, delay 

6501 

7532 Exf. writ* A/D 

7332 Output 2000 to 3000 

3000 

OO23O 7525 Check for Par. error write 
7600 
0204 
6003 
7101 
7013 To @ Par. error write 

5405 Increase Block count 

6512 

00240 0576 Beset -76 Block count 
4005 

7517 Exf - write file mark 
5407 
6501 
5407 
6501 

5406 Increase file nark count 

00250 6506 

0577 Reset file mark count 

4006 

6107 

1171 Odd parity 

1141 Status 

1161 R«wlnd load 

2111 Write A/D 

00260 2000 Starting Adr. write 

mi 

2414 Load Compl. e>£ 

4111 store pattern from 3000 thru 3777 

5411 

3412 

6012 

5413 

00270 6506 
2014 
4lll 
0507 
4013 
5411 
3412 
6515 
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00300 



00310 



00320 



00330 



0031*0 



00350 



0307 
4013 

2003 

toil 
a4i4 
4oi4 
7553 
7353 

4XXX) 

7553 
7600 
6003 
7101 
7016 
5M5 
6535 

0510 
4015 

2024 
4u6 
4424 
54i6 

3417 

6505 

2012 
kOlB 

7527 
7330 
40l4 
7527 
76OO 
0204 

6003 
7101 
7021 
5425 
6512 
0520 
4025 
5426* 

4127 
5427 
3432 
6504 
0400 
4026 
2031 
4027 



Reset Consecutive 1* or 0% count 

Reset Var. Adr. to 3000 

Compl. <"*• 

EXF - write A/D 
Output 3000 thru 3777 

Status - Check for parity error 



To tf?) Parity error write 
Increase Block count 



Reset Block count to -10 

Store one bit left shifted from WOO thru 4013 



Reset Var. Ind. Adr. 

EXF write A/D 

Output 4000 thru 4013 

Status - Check for parity error write 



To @) Parity error write 



Reset Block count to -20 

Store binary count 1 to 77 from 4015 thru 4113 



Reset Variable #4 

Reset Variable Adr. to 4015 
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00360 



003TO 



00400 



00410 



oo42o 



00430 



6106 
sm 

3000 
4ooo 
1141 
0000 
7575 
7575 

7600 
0301 
6003 
7101 
7230 
7570 
7370 
4114 

7564 
7600 
4205 
0204 
6oo4 
7101 
7024 
0001 

2301 

0210 
6003 

7101 
7257 
7552 
7546 
7600 

6003 
7101 
7162 
7542 
7342 
4114 
7536 
7000 

6003 
7101 
7027 
5433 
6546 
0550 
4033 
7526 



Writ* A/D 

Starting Adi*c write 
Starting adr. write 
Status 

EXF -even parity- 
Check for BCD Mode 



to mp error BCD Status 
EXF write 6 bits 
Output 4015 thru 4113 



EXF Status 

Store status response 
Check for parity error 



To (t^) parity error write 
Response data 



Check for Illegal BCD 

To @ error 111. BCD 

EXF"0dd parity 

Check for binary mode 



To (f7) error binary status 

Write 6 bit 

Output from 4015 thru 4113 

Check for parity error 



To (^parity error write 
Increase -50 Block count 

Reset Block count to -50 
EXF file mark "W" 
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ooVtf> 5407 
6501 
5407 
6501 

7524 Rewind load 

7517 Check for load point 

7600 

07^0 

00450 6503 
5407 
6505 

753J6 EXF - Read A/D 
7216 Input 5000 thru 5777 
6000 

7506 Check for parity error 
76OO 

00460 6020 
7101 

7073 To (To) parity error read 
1172 BCD^ode 
ll4l Status 
1111 

4015 Starting Adr. 
U71 Binary mode 

00470 1161 Rewind load 
2131 Read A/D 
5000 starting Adr. 
0000 
0000 
0000 
0000 
0000 

OO5OO 2102 Compare 2xxx with 5xxx 
3534 
6003 
7101 

76IO To (Tiq) comparison error 
5U02 v -^ 
5^34 
3^35 

00510 6510 

2004 Reset Var. Adr. to 2000 

4002 

2036 Reset Var. Adr. to 5000 

4034 

5405 Incr. -76 Block count 

6543 

0576 Reset -76 Block count 
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00520 



00530 



005*0 



00550 



00560 



00570 



1*005 
7553 
5*07 
6501 

5*07 
6501 

75*7 
7600 

0720 
6503 
5*06 
6512 
0577 
koo6 
7536 
5*07 

6501 
5*07 
6501 
7532 
76OO 
0720 
6503 
5*07 

6501 
7525 
7600 
5*07 
6501 
5*37 
6505 
2053 

*037 
5*07 
6501 

751* 
721* 
6000 

7507 
7600 

020* 
6010 
7101 
7076 



•n an 
2131 



Search forward for 77 file marks 

Check, for file nark 

Incr. file mark count 
Reset file mark count 
Search forward for file mark "W" 



Check for file mark 



Backspace (151 )g records 



Reset backspace count 



Read A/D beginning atot information 
Input from 5000 thru 5777 

Check for parity error read 



To (Jiy parity error read 
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00600 5000 

2511 Compare "o*-" information (Instruction changes to 2111) 

353^ 

6003 

7101 

7621 To (T-,.0 comparison error 

5IHI \i^ 

00610 3^35 
6510 

2O03 Reset Var. Adr. to 3000 

1*011 

2036 Reset Var. Adr. to 5000 

1*03^ 

2315 Check instruction 

3VH 

00620 6l(* 

20l*0 Change Instruction from 2511 to 2111 

1*321 

6103 

20**1 Change Instruction from 2111 to 2511 

1*324 

51*15 Incro -10 Block count 

65I* 

OO63O 0510 Reset Block count to -10 
1*015 

7541 EXF - Read A/D 
72M 
5011* 

75M Check for parity error 
7600 
0201* 

006U0 6003 
7101 

7101 To (jjjjPar. error Read 
2116 Compare Data 
3534 
6003 
7101 
7632 To(T^\Corap. Error 

OO65O 5^34 Incr. Ind. Adr. 
5l*l6 Incr. Ind. Adr. 
3M7 
6510 

2012 Reset Ind. Addresses 
1*016 
2036 
l*03l* 
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00660 



00670 



00700 



00710 



00720 



00730 



5^25 
6527 
0520 
k025 
7511 
7511 
7600 
0301 

6010 
7101 
7223 
2131 
5000 
1172 
HUl 
0000 

7566 

7266 
5UA 

7565 
7600 
020U 
6003 
7101 

7l0fc 
7557 
7600 
0210 
6003 
7101 
7262 
2127 

35^3 
6003 
7101 
761*3 
5^3 
5^27 
3^5 
65IO 

20*4 
1*043 
2031 
1*027 
7535 
7533 
76OO 
0201 



Incr. Block count 

Reset -20 Block count 

Select BCD Mode 
Check for BCD Mode 



To 



Error BCD Status 



EXF - Read 6 bit 



Check for parity error 



To(fVAPar. Error Read 
ChecTrror 111. BCD 



To (0\ Error 111. BCD 



To (Ttq) Comp. Error 
Incr. Ind. Addresses 

Check 411** limit 



Reset Ind. Addresses 



Select Bin. Mode 
Check for Bin. Mode 
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00740 6003 
7101 

7165 To(TVMEr»*or Bin Status 
7523 EXF^niead 6 bit 
7223 
5114 

7522 Check for parity error 
7600 

00750 0204 
6003 
7101 

7107 ToQ?2Q)par. error read 
2143 Compare Data 
3527 
6003 
7101 

00760 7654 To ^\ Camp. Error 

5443 IncrTHLnd. Addresses 

5427 

3445 Check limit 4114 

6510 

6007 

1131 

5015 

00770 1141 
1171 
0000 
0000 

2044 Reset Ind. Addresses 
4043 
2031 
4027 

01000 3433 Incr. Block count 
6003 

7101 Loop back on test 
0664 

0550 Reset Block count 
4033 

2050 Store Number Pattern from 6000 through 6777 
3077 

01010 4050 
4146 
5446 
3447 
6506 

0400 Reset Variable #11 
4050 
2035 Reset Ind. Adr. 
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01020 4046 

7557 Space over file mark "W" 

5407 

6501 

5407 

6501 

7545 Select BCD Mode 

7545 Check for BCD Mode 

01030 7600 
0201 
6103 

7101 ^-v 

7226 To (tT^ Error BCD Status 

7540 WriCB*A/D 

7340 

7000 

01040 7534 Check for parity error 
7600 
0204 
6003 

7101 ^r-v 

7032 To ^23) par. error write 

7526 ChecFfor 111. BCD 

7600 

01050 0210 
6003 
7101 

7265 To (tTa) error 111 . BCD 
7523 Backspace 1 record 
7600 Delay for backspace 
0600 
0103 

01060 0701 
6501 

7516 EXF - READ A/D 
7216 

6000 Term. Address 
7507 Check for Parity Error 
7600 
0204 

01070 6013 
7101 

7112 To ^25)par. error read 
1172 EXF^Codes 
1141 
2111 
6000 
1121 
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01100 2131 
5000 
1131 

2134 Compare Data 
3546 
6003 

7101 ^^^ 
7665 To(T26)C«mp. Error 

OHIO 5434 Incr. Ind. Addresses 
5446 
3447 
6510 

2316 Shorten Block length by (0010) 8 
3217 
4320 
2036 Reset Var. Adr. 

01120 4034 
2035 
4046 

2322 Shorten Block length by (0010) 8 
3210 
4324 

3435 Check Limit 
6006 

01130 0600 
0600 
7101 
1026 
0010 

2035 Reset Black lengths to (1000) 8 
4340 
4046 

01140 2036 
4340 
4034 

7511 EXF - Write 6 bit 
7311 Write 111. BCD 
1162 

7510 Check for 111. BCD 
7600 

01150 0715 
6013 
7101 

7333 To ti^h Error 111. BCD not detected 
1111 ^~* 
1157 
1141 
0077 
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01160 



01170 



01200 



01210 



01220 



01230 



0000 
0010 
0000 
0000 
7560 
7560 
7600 
6003 

7101 
7170 
7556 
7354 
3000 
7550 
7600 
0204 

6003 
7101 
7035 
5407 
6501 
7541 
7600 
5407 

6501 
0525 
4135 
7536 
7236 
6500 
4060 
0600 

0600 
0600 
7523 
7600 
0204 
6003 
7101 
7115 

2134 
3401 
6003 
7101 
7666 
5434 
3435 
6507 



Select Bin Mode 
Check for bin mode 



To (tT^ Error Bin Status 
EXF^Write A/D 



Check for Par. Error 



To^2ft)Par. Error Write 



Backspace 1 record 

Condition Disconnect Adr. 
Check Input Disconnect 

Store Term. +1 
Check for Par. Error 



To ft 3 ^| Par . Error Read 
Compare Data 



To^Comp. Error 
IncrrTlnd. Adr. 
Check Limit 
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Q12to 



01250 



01260 



012TO 



01300 



01310 



2134 
6012 
7101 
7320 
111 

ma. 
1121 
2000 

ym 

2131 
5000 
2036 
1»034 
7101 
1335 
0600 

7551 
5*07 
6501 

75^*5 
7600 
0320 

6503 

75^2 

5fc>7 
€501 
7536 
7600 
0320 

6503 
5S06 
6510 

0577 
1*006 
7530 
7525 
7600 
03I10 
6503 
7101 

7710 
7710 
0200 
7520 

751* 
7600 

03*8 

6503 



Check for zero's stored at disconnect 



Tort^z) Error ^P* disconnect 



Reset Var. Adr. 

Jump to continue Input disconnect cheok 

Backspace 1 file mark 
Check for file mark 

Backspace 7?3 file marks 



Reset file mark count 

Rewind load 

Check for load point 



To (J33) type pass count 
Optional jump 

Rewind unload 
Check for not ready 
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01320 0600 
0600 

7101 r ^ 

7367 To (T^el type out reel change 
7777 ^^ 

7101 Jump to beginning of read 
0444 
1171 

01330 1141 
1121 
1161 
1151 
0000 

2060 Check input disconnect 
0701 
3435 Check terminal 

01340 6103 

7101 Jump to servo test 

1400 ^^^ 

7101 Jump to (T34) error Inp. Disc 

7323 

7101 Jump to continue program 

1260 

0271 

01350 7110 
2552 
2000 
3000 
2000 
0000 
0000 
2102 

01360 4103 
5403 
5402 
3404 
6505 
2315 
4000 
2316 

01370 4001 
2317 
4002 
2320 
4003 
2321 
4004 
7020 

162:18 



01400 



01410 



01420 



01430 



01440 



01450 



0507 
4221 
0507 
4206 
7540 
7540 
7335 
7000 

5600 
0000 
6505 
0507 
4303 
7531 
7600 
5706 

6503 
5600 
0000 
7145 
7521 
7316 
3000 
7520 

7600 
0204 
6003 
7101 
7040 
7511 
7600 
7720 

1424 
7101 
1260 
2000 
1171 
2111 
2121 
1141 

0501 
5336 
0501 
5351 
3600 
0500 
6554 
2200 



Set loop count 

Set block count 

Sel . odd parity 
Write - A/D 



Incr. Block count 

Reset block count 

Backspace 

Incr. Backspace count 

Incr. loop count 

Write - A/D 

Status 



Jump toft^ 

Backspace 

Sel. jump 2 for creep test (should have small net forward creep) 

Continue test 

Starting Adr. 
Odd parity 
Write 
Backspace 
Status 

Shorten backspace count 

Shorten block count 

Check limit 

Reset instructions 
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01460 0507 
4357 
4347 

7740 Sel. Jump 4 (up keeps program in servo test) 
1400 

7101 Jump to creep test 
1424 
0000 

01470 1450 
5077 
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07000 



07010 



07020 



07030 



07040 



07050 



7555 


EXF 


- Type 


7445 


CR 




7415 


P 




7442 


a 




7420 


E 




7442 


• 




7431 


W 




7442 


• 




7445 


CR 




7101 






0236 


Var. 


Address 


2233 


Ent. 


for Tj 


4302 




6515 






2231 


Ent. 


for T 2 


4305 






6520 






2227 


Ent. 


for T3 


4310 






6523 






2225 


Ent. 


for T 5 


4313 






6526 






2223 


Ent. 


for T 8 


4316 






6531 






2221 


Ent. 


for T 2 3 


4321 






6534 






2217 


Ent. 


for T29 


4324 






6537 






2217 


T 36 




4327 




6542 






0000 






0000 






0000 






0236 


Ret. 


for T! 


0316 


Ret. 


for T 2 


0343 


Ret. 


for T3 


0410 


Ret. 


for T5 


0433 


Ret. 


for T 8 


1046 


Ret. 


for T23 


1203 


Ret. 


for T 2 g 


4210 


EXF 


- Code 


0000 


Spare 


1435 
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07060 



07070 



07100 



07110 



07120 



07130 



7555 


EXP 


- Type 


7445 


CR 




7415 


P 




7442 


• 




7420 


E 




7442 


• 




7412 


R 




7442 


■ 




7445 


CR 




7101 






0500 


V*r. 


address 


2233 


Ent. 


for T9 


4302 






6515 






2231 


Ent. 


for T n 


4305 






6520 






2227 


Ent. 


for Tj^ 


4310 




6523 






2225 


Ent. 


for T16 


4313 






6526 






2223 


Ent. 


for T 20 


4316 






6531 






2221 


Ent. 


for T25 


4321 






6534 






2217 


Ent. 


for T 30 


4324 




6537 






0000 


Spares 


0000 






0000 






0000 






0000 






0000 






0500 


Ret. 


for T„ 
for Ti! 


0601 


Ret. 


0643 


Ret. 


for T^3 


0711 


Ret. 


for T16 


0754 


Ret. 


for T20 


1103 


Ret. 


for T 2 5 


1230 


Ret. 


for T 30 


4210 


EXP • 


• Code 


0000 


Spare 


0000 


Spare 
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07140 



07150 



OT160 



07170 



oTaoo 



07810 



7540 


EXF 


- Type 


7U45 


CR 




7^20 


E 




7442 







7424 


s 




7^20 


E 




7^11 


I 




74o4 


SP 




7423 

74i4 


B 

1 




7406 


N 




7442 


• 




7445 


CR 




7101 






0207 


TJar. 


Address 


2215 


Ent. 


for T Q 


4302 






6521 






2213 


Ent. 


for T7 


1*305 




( 


6524 






2211 


Ent. 


for Tig 


4310 




•7 


6527 






2207 


Ent. 


for T 2 8 


4313 






6532 






4210 


EIF 


- Coda 


0207 


Rat. 


for To 


0483 


Ret. 


for T7 


0743 


Hat. 


for T19 


1172 


Ret. 


for T 2 8 


4810 


EXF ■ 


. Code 


7533 
7445 


CR 


- Type 


7420 


E" 




7448 


o 




7484 


S 




7480 


E 




7411 


L 




7404 


SP 




7483 


B 




7416 


G 




7488 







7448 


. • 




7445 


CR 




7101 






0375 


Varc 


Address 
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07280 2211 Ent. for Th 

4302 

6521 

2207 Ent. for Tr? 

4305 13 

6524 

2205 grit, for T 22 

O723O 6527 

0375 Ret. for Tk 

0700 Ret. for T^ 

1035 Ret. for T 2 2 

*210 gxF - Code 

OOOO 

0000 

0000 

07240 7533 EXF - Type 
7445 CR "^ 

7420 E 
7442 

74l4 I 

74U L 

7411 L 
7442 

07250 7423 B 

74l£ C 

7422 
7442 

7445 CR 
7101 

0415 V&r. Address 

2211 Ent. for Tg 

O726O 4302 
6521 
2297 Ent. for T,„ 

& 

2205 Ent. for T04 
4310 ** 

6527 

O72IO 0415 Retc for T 6 
0717 Ret. for T 17 
1054 Ret. for T ? A 
4210 sxr - Code 
0000 
0000 
0000 
0000 
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07300 



07310 



07320 



07330 



073*0 



07350 



S8 


EXF - Type 
CR 


7*ao 


s 


7**2 


• 


7*1* 


I 


7*06 


N 


7*15 


P 


7**2 


• 


7*22 


D 


7*1* 


1 


7*2* 


S 


7*16 


c 


7**2 


• 


7**5 


CR 


7101 




1253 


Var. Addr*** 


2206 


Ent. for T,„ 


*302 


32 


6522 




220* 
*305 


Ent. for T34. 


6525 




1253 


R*t. for T32 
R*t. for T34 


13*5 


*210 


EXF - Cod* 


0000 


Spar* 


0000 


Spar* 


7**5 
7*1* 


Ent. for T 27 
CR 

I 


7*11 


L 


7*11 


L 


7**a 





7*23 


8 


7*16 


C 


7*42 


D 


7**12 


• 


7*06 


N 


7*03 





7*01 


T 


7*0* 


SP 


7*22 


D 


7*20 


E 


7*01 


T 


7*20 


E 


7*16 


C 


7*01 


T 


7*20 


E 
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07360 7*22 D 

7**5 CR 
7101 

H£k Kxit for T 2? 

lmo EXF -Code ' 

0000 Spare 

0000 Spare 

7520 EXF - Type Bnt. for T^ 

07370 7*^5 CR 

7*16 C 

7*05 H 

7*30 A 

7*06 N 

7*13 G 

7*20 e 

7*0* SP 

07*00 7*42 R 

7**> E 

7*20 E 

7*U L 

7*^5 CR 
7101 

132* Exit for T 35 

*210 EXF - Code 

07*10 T57fc 

7**5 CR 

7*16 c 

7*03 

7*07 M 

7*15 P 

7**2 

7kk5 CR 

07*20 7*16 c 

7*03 

7*12 R 

7*12 R 

7*20 E 

7*16 C 

7*01 T 

7*0*. sp 

07*30 050* Set Shift Count 

*057 

*Jl64 Shift correct Data 

**& 

**& 

0207 Save lower 3 bits 

6103 Conversion 

0*56 Zero 
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07**o 613a 

OTOl 



one 



6IO3 
0*7* 
6125 
0701 
6103 
0*70 two 

07*50 61*2 
07OI 
6103 

0*6* three 
6116 
0701 
6103 
0*62 four 

07*60 6112 

0701 

6103 

0*66 five 

6106 

0701 

6103 

0*72 six 

07*70 6102 

0*60 seven 

0600 spare 

<**°0 spare 



7506 

7*00 ykxx. 

O75OO 5*57 Incr. shift count 
6007 
71O0L 

7*32 baok to conversion 

*2U> bif - Code 

7*00 Constant 

0000 spare 

0000 spare 

07510 050* Reset Shift Count 
*057 

756* EXF - Type 

7**5 CR 

e 



7*20 
7*12 
7*12 
7*03 



r 
r 
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075» 



07530 



07540 



07550 



07560 



07570 



7412 


r 
SP 


ikok 


SP 


jkok 


SP 


Wr6 


Shift error data 


Wr6 




Wf€ 




0207 


Save lower 3 bits 


6103 




0456 


Zero 


6132 




0701 




6103 




0474 


one 


6126 




0701 




6103 




0470 


two 


6122 




0701 




6103 




0464 


three 


6116 




0701 




6103 
0462 


four 


6112 




0701 




6103 




0466 


five 


6106 




0701 




6103 




0472 


six 


6102 




0460 


seven 


0600 


spare 


0600 


spare 


3211 




4202 




7506 


EXT - Type 


7400 


74xx 


5457 


Inor. shift count 


6005 




7101 




7524 




4210 


EXF - Code 


7400 


Constant 
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07600 2065 Load Data Address 

7701 Sel. Stop 

7062 Exit (fx^s 
0000 v — J 
0000 
0000 

7101 Jump to Conversion 
7410 

07610 2102 Ent. for T 10 
4064 

2002 Load Address 
4065 

2134 Load (Ind.) error data 
4076 

2066 Set exit 
4062 

07620 6512 

2111 Ent. for T12 

4064 

2011 

4065 

2134 Load (Ind.)error data 

4076 

2067 Set exit 

07630 4062 
6523 

2116 Ent. for T14 
4064 
2016 
4065 
2134 
4076 

07640 2070 
4062 
6534 

2127 Ent. for T18 
4064 
2027 
4065 
2143 

07650 4076 
2071 
4062 
6545 

2127 Ent. for T21 
4064 
2027 
4065 
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07660 2143 
4076 
2072 
4062 
6556 

2146 Ento for T26 
4064 
2046 

07670 4065 
2134 
4076 

2073 

4062 

6567 

2001 Knt. for T31 

4064 

07700 2034 
4065 
2134 
4076 
2074 
4062 
6511 
0000 

07710 7511 Ent. for "Pas«" Type 
7445 

7415 
7430 
7424 
7424 
7445 
7101 

07720 1311 
4210 
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NUMBER: T071 

TITLE: Magnetic Tape Test 

CATEGORY: 160-A and/or 162, 163, 164 

MINIMUM EQUIPMENT NEEDED: 160-A and/or 162, 163, 164 

PURPOSE 
This test is a six bit test of the tape handler that uses a bit by bit comparison. 



DESCRIPTION 

1. See flow chart. 

2. The sequence of numbers written are of a random sort being generated by starting 
with 0000 in the first address and octal 0011 being added to the contents of each 
sequential address for 1777 octal address. 

3. The initial block written is 10„ words in length and each following block is increased 
by 10 R words with a filemark being written after each 10„ blocks. The maximum 



number of blocks that can be written is 200 



8' 



OPERATING INSTRUCTIONS 



LOAD INSTRUCTION: 


Paper Tape 


LOADING ADDRESS: 


0000 In P register 


TERMINAL ADDRESS: 


0445 


CHECK SUM: 


4037 


STARTING ADDRESS: 


0000 



ADDITIONAL INSTRUCTIONS: 



1) Tape units at load point. 

2) Select switches in sequential order. 

3) Binary/Coded switch in binary position. 

4) SLS switches 1, 2 and 3 in up position. 

5) Place in A number of units to be operated. 

6) Run. 



RESTART ADDRESS: 



0200 in P 1) After parity error 

2) Clear computer 

3) Manually load 0000 into locations 0005 and 0006 
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RESTART ADDRESS: 0000 in P 1) After compare error 

2) Clear computer 



HALTS 



7701 
7702 
7703 
7705 



EXPLANATION 

In the event a parity error occurs the test will rewrite or reread, in 

either case, three times and then halt. If a rewrite or reread is 

successful before three operations the test will continue its normal 

sequence. 

Parity error on write 
Parity error on read 
Comparison error 
Parity on write non-stop 
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PROGRAM FLOW CHART 



0007 - Number of Units 

0013 - Number of Blocks Maximum 200 

0011; - Number of filemarks counter 

0015 - Number of filemarks constant 

0016 - Status for Write 
001? - Status for Read 

0021 - Address for Compare error - write 

0022 - Address for Compare error - read 

0023 -> 



Constant Storage 
0053 J 



t 
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OS 
CO 










0100-0147 




0200-0205 




0206-0207 




0210 


-,/ 


0211 


1 — 


Yes 
Yes 




Start 


Regenerate 


Write 




Status 




Store 
Status 


^ Zero ^ 


Backspace 












*\ 


> 0212 














. 












No 


























-. 


,, 0170 












Add "1" 










v 0171 










. Sub "3" 










,,0172 


\ 






' Zero 


Halt 




















^ V 


* YYUl 





0212-0213 




0214-0221 




0222-0223 




02^4 




>( 


0225 


Yes 
i Yes 






Backspace 


Read 




Status 




Store 
Status 


Zero N 












No 


3 \ 




















No 
f 0174 




























\ 










Add "1" 








,,0175 








Sub "3" 








i 


,0176 






Zero 

























Compare 
0226 



Halt 
7702 



0226-0230 



Compare 



0231 



0232-0234 



yes 
Zero Y- H Add 1 



-*C Zero j- 



'A" - Number of Blocks 



I Halt 
7703 



0235 



r Terminate 
Address 



0263-0267 



Restore 
Address 



0237-0241 



Check 
Units 



Write 
0200 



■C 



0242 



Zero 



) 



yes 





0243-0247 


i 


no 


Change 
Units 




* 





0250-0257 



Restore 

Unit 
Selects 



Block 
-» Count 
0300 



Block 


0300 




0301 




Count 


Add "1" 




Sub "10" 8 


J 






*\ 



0302 



, yes 

Zero I » Write 



en 

CO 



> 



0315 



Filemark 




Jump 



0306 



0307 



0311 



Add 'T 



» Sub "A" 



< 



0310 



Zero 



> 



yes 



Load and 
*| Restore 
0000 



0360-0367 



Increase 
10o Words 



Block 



0316-0320 



Check 
Units 



0321 



0322 



< 



Zero 



0324-0325 



Restore 

Unit 
Select 



y 



Change 
Units 




0323 



yes 



-* Search filemark 
0327 



0370-0376 



Restore 

Addresses 



Write 
-> 0200 











0330-0332 








no 


0341 


0344-0350 






0327 




0334-0335 




0336-0340 








Search 
Filemark 




Sub "1" 
from ctr. 




Store ctr. 


jf r, ^yes-, 


Restore 
Ctr. 




Check 
Units 


JT r, rrn ^yes 


Restore 
Unit "1" 






















no 






















0342-0343 






















Change 
Units 

































to 

00 




0403-0405 


















0412 












no 


03 






0406-0407 


0410 


0411 


0413 


0414 






Write 
Non-Stop 




Status 




Store 
Status 


~,f ~ . .... ^\ves 


Add 1" 




Sub. "A" 




•>( -c 


ro 




— 9 






*i Ziero y * 










no 






yes 
































' »Halt 7705 
































0415 




0416-1420 


0421 












Rewind 


Check 
Unit 


Change 
Unit Sel. 








/■ N no 
















Regenerate . 
0100 










yes 


























Restore 
Unit 















































TAPE TEST "X" UNITS 

Place number of units in W A W register — Run 



0000 


6002 










0001 


1*007 


Store * 


Number of ' 


Units 




0002 


7101 










0003 


0100 


Starting Address 






0001* 


0000 










000$ 


0000 


Number 


of Times 1 


Rewrite 




0006 


0000 


Number 


of Times 1 


Reread 




0007 


0000 










0010 


. 0000 










0011 


0000 










0012 


0000 










0013 


0200 


Number 


of Blocks 






0011* 


0020 


Search 


Filemarks 


Counter 




0015 


0020 


Search Filemarks 


Constant 




0016 


0000 


Store 1 


Status Wrote 




0017 


0000 


Store i 


Status Read 




0020 


0000 
2000 










0021 


Output 


address 




' " ' L 


0022 


1*000 


Input 


address 


comparison 


error 


0023 


2010 










0021* 


1*010 










0025 


2010 










0026 


1*010 










0027 


2000 










0030 


1*000 










0031 


1111 


2111 




Change for 


A/D 


0032 


1121 


2121 




Change for 


a/d 


0033 


1131 


2131 




Change for 


A/D 


003U 


111*1 


211*1 




Change for 


A/D 


0035 


1161 


2161 




Change for 


A/D 


0036 


0000 










0037 


0000 










001*0 


0270 










001*1 


0271 






CONSTANTS 




001*2 


0272 










00l*3 


0273 










ool*l* 


0202 










ooi*5 


0216 










ool*6 


01*01 










001*7 


01*02 










0050 


01*1*3 










0051 


01*1*1* 










0052 


3777 










0053 


01*1*5 










0051* 


0000 










0055 


0000 










0056 


0000 










0057 


0000 
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0060 


0000 


0061 


0000 


0062 


0000 


0063 


0000 


006U 


0000 


0065 


0000 


0066 


0000 


0067 


0000 


0070 


0000 


0071 


0000 


0072 


0000 


0073 


0000 


00714 


0000 


0075 


0000 


0076 


0000 


0077 


0000 


0100 


ol*oo 


0101 


1*010 


0102 


llOll 


0103 


1*012 


0101* 


1*016 


0105 


U017 


0106 


1*020 


0107 


2025 


0110 


U023 


0111 


UlUU 


0112 


2026 


0113 


l*02l* 


01114 


l*il*5 


0115 


2027 


0116 


1*021 


0117 


2020 


0120 


1*121 


0121 


2021 


0122 


3750 


0123 


6006 


0121; 


2020 


0125 


0611 


0126 


1*020 


0127 


51*21 


0130 


6511 


0131 


2027 


0132 


1*021 


0133 


2030 


013U 


1*022 


0135 


2031 


0136 


1*11*0 


0137 


2032 



Initialize Test 
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011*0 Ulla Initilization 

011*1 2033 (Continued) 

011*2 U1U2 

011*3 203U 

011*1* U1U3 

oil*5 ol*oo 

011*6 7101 

Oll*7 0200 



0150 2205 

0151 0701 

0152 6501 , _ JX 

0153 7101 Dela y Wjrite 

015U 0206 

oi55 7ooo 

0156 oooo 

oi57 oooo 



0160 2205 

0161 0701 

0162 6501 „ , 

0163 7101 Delay Read 

0161* 0222 

0165 7000_ 

0166 OOOO 

0167 OOOO 

0170 5U05 „ . x 

0171 0703 Rewrite Parxty 

0172 6106 

0173 770 1 Write Parity Stop 

0171* 51*o6 _— - 

0175 0703 Reread Parity 

0176 6111* 

0177 7702 Read Parity Stop 



0200 7570 

0201 7301* 

0202 2010 

0203 7101 
020l* 0150 

0205 2000 Write 

0206 7565 Write Status Select 

0207 7600 

0210 1*016 

0211 6521_ — — 

0212 7557 Backspace 

0213 7600 

0211* 7556 

0215 7201* 

0216 1*010 Read 

0217 7101 
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0220 0160 

0221 4000 

0222 7551 Read Status Select Read (continued) 

0223 7600 

0224 4017 

0225 6531_ 

0226 2121 

0227 0277 0600 

Change for A/D 

0230 3522 

0231 6l46 

0232 5421 

0233 5422 COMPARE 

0234 3716 

0235 6507 

0236 6025. 

0237 2231 

0240 0207 

0241 3407 

0242 6006 

0243 5625 Change unit 

0244 5625 select 

0245 5625 

0246 5625 

0247 6547 



0250 2031 

0251 4140 

0252 2032 

0253 4l4l Restore Unit 

0254 2033 Select Codes 

0255 4142 

0256 2034 

0257 4l43 

0260 0400 

0261 7101 

0262 0300 



0263 2027 Restore 

0264 4021 Compare 

0265 2030 Addresses 

0266 4022 

0267 6530 

0270 1111 

0271 1121 

0272 1131 

0273 H4l 

0274 0000 

0275 0000 

0276 0000 

0277 7703 Compare Stop 
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0300 5110 

0301 0710 

0302 610JU 

0303 oUoo 

030U 1*010 BLOCK 

0305 6010 COUNT 

0306 51*11 

0307 31*13 

0310 6150 

0311 01*00 

0312 1*011 

0313 OliOO 

03 ll* 6013 



0315 7561* Write File Mark 

0316 2263 

0317 0207 

0320 31*07 

0321 6003 Change Unit Select 

0322 $657 

0323 6506 

0321* 2031 Restore Unit 

0325 1*11*6 Select Code 

0326 6520 

0327 7553 

0330 2011* SEARCH 

0331 0701 

0332 1*011* 

0333 65014 

033U 2015 

0335 UOlU Filemark 

0336 22l*l* 

0337 0207 

03U0 31*07 Change Unit 

031*1 6003 SELECT 

03U2 561*0 

031*3 6511* 

03l*l* 2032 Restore Unit Select 

031*5 1*11*7 Code 

03i*6 01*00 

031*7 1*020 

0350 7101 

0351 01*03 

0352 0000 

0353 0000 
0351* 0000 
0355 0000 

0356 0000 

0357 0000 
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0360 2023 ~ 

0361 0610 

0362 4023 

0363 4l44 

0364 2024 Generate 

0365 0610 Block 

0366 4024 Length 

0367 4l45 



0370 2027 

0371 4021 

0372 2030 Restore Compare 

0373 ^022 And Parity Counters 

0374 o4oo 

0375 4005 

0376 4006 

0377 7101 

0400 0200 

0401 1111 write F.M. Select Code 

0402 1121 Search F.M. Select Code 

0403 7540 ' 

0404 7335 

0405 2100 

0406 7537 Non-Stop Status Select WRITE NON-STOP 

0407 76OO 

0410 1*016 

0411 6131 

0412 5420 

0413 3413 



04l4 6511. 



°J*15 7527 REWIND 

0416 2225 "~ — ~ ~~- — 

0417 0207 

0420 32*07 

0421 6007 CHANGE UNIT 

0422 5621 SELECT 

0423 5621 

0424 5621 

0425 0400 

0426 2tf)20 

0427 6424 



0430 2031 

0431 4150 

0432 2035 

0433 4151 

0434 2034 RESTORE UNIT 

0435 4153 SELECT CODE 

0436 0400 

0437 Tioi 
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04U0 0100 

CMl 2000 

04U2 7705 Stop On Status 

Okkl IIH 

Okkh ll6l 

Okk$ Hkl 
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NUMBER: T630 

TITLE: Binary-Coded Magnetic Tape Test 

CATEGORY: 160-A, 162, 163, 164 

MINIMUM EQUIPMENT NEEDED: 160-A, 162 or 163 or 164 

PURPOSE 

This program provides a comprehensive test of Magnetic Tape units. The program 
cannot be used on 606 type transports in high density. 



1. 
2. 



DESCRIPTION 



See flow chart. 



This program writes information in both coded and binary format, varying the 
information and the block length. After each block is written the tape is back- 
spaced and the block is read and compared in the computer. 

3. The block length is increased for the first 200„ blocks, decreased for the next 
200g blocks and then increased for 200„ more blocks. This results in a total of 
600 blocks written on tape. Every 10 g blocks there is a file mark written on 
tape for a total of 60„ file marks. After writing 600 g blocks, units are searched 
back for the number of file marks written. Next, each unit writes non-stop 400„ 
blocks; rewinds and starts complete test over. 

4. Parity is checked on both Read and Write and if an error occurs the unit with the 
error will try three times to correct itself and then halt. One error in non-stop 
will give a halt. Complete test is in A/D or 12 bit format. 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 
STARTING ADDRESS: 



OPERATING INSTRUCTIONS 
Paper Tape 

0000 

0777 

6727 

0000 



ADDITIONAL INSTRUCTIONS: 



1. Enter in 0013 number of blocks to be written. 

2. Place in A the number of units to be run. 

3. Run. 
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HALTS EXPLANATION 

7701* Parity error in binary on write 

7702* Parity error in binary on read 

7703* Comparison error binary 

7704* Parity error in coded on write 

7705* Parity error in coded on read 

7706* Comparison error in coded 

* Running again without clearing will rewrite the block with the 
error and continue the program 
7707 Parity error in non-stop 

If halt is 7703 or 7706 the word which does not compare may be 

found in the following manner: 

1. Address 0020 contains the address of the valid word written. 

2. Address 0021 contains the address of the invalid word read 
back to the computer. 

3. Address 0022 contains the terminating address of the block 
written during failure. 

4. Address 0023 contains the terminating address of the area 
read into during failure. 
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0000 - 0001 



0002 *0003 




A/ 



Restore adr. 
0005-0017 
with zero 



0113 -0146 
Restore initial 



—* select codes & — » word pattern 



term, addresses 



0147 -0176 
Generate write 



2000 -3777 



Condition pro- 
_J gram to 

increase blk by 
1 0g wds each pas 



Jump 
to 0240 



-© 



Store # of 
units to be 
run. 0004 



0326 -0327 



0240 -0243 



Binary 
Test 



o- 



Restore int. 

starting 

address 

read and write 



Restore 
06 -07 
to zero 



/MAG 

\TAPE 



Change 

unit X to 

binary 



Back- 
space 



0331 



Load "A 1 
with status 




Jump to 0244 



Try to \ ■ 
re-write J*— 
3 times / 



AOD to 
0006 



A t 



0250-0252 0253-0254 



Write 
1 blk 
unit X 



Status 
unit X 



Store 
status 
at 0016 



Yes A i 



KIs there \ No 
a reply J ^ 



Load "A" 

status 




Jump to 02 44 
Rewrite ) 



AM 



Try to 
re-read 
3 times 



J\ 



AOD to 
0007 



A^0 



0261-0263 0264 -0265 



Back- 
space 



Read 
1 blk 
unit X 



Status 
unit X 





Compare each word of 
present blk length 
written against each 
word read back. 



Jump - 024 
Rewrite J 



0304 -0313 



A i 



Does word 
compare 



0300 -0302 




Determine if 

there are 
other units 
to be used 



Restore 
initial 

select codes 



0314-0315_ 



Jump 0400 



IKxit to 
Coded Test 



0316 -0321 



— *{ Decision 



A*0 



Replace 
AOD+ 1 to 
select code 



O 



Back to 0240 to 
repeat on next unit 



A i 
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0470-0471 



Coded 
Test 



0400 
2 



0400 - 0403 



Restore int. 

starting 

address 

read- write 



Restore 
06 -07 
to zero 



/MAG 
\TAPE 



Change 
unit X 

coded 



Back- 
space 



Load "A" 
with status 




J ump to 040 4 
Rewrite J 



A^0 



Try 
re- write 
3 times 



*m r 

-ite J*— 
!£L/ L 



AOD + 1 
to 0006 



0410—0412 0413-0414 



0415 



Write 
1 blk 
unit X 



Status 
unit X 



Store 
status 
at 0016 



Mask 
out 01 
coded 



A t 



KIs there \ 
a reply J 



-7705- 

J ump 0404 

HALT \ -4 Rewrite J 



042 0421 



Back- 
space 



Read 
1 blk 

unit X 




Jump - 0400 



0432 - 0441 



A 4 



Compare each word of 
present blk length 
written against each 
word read back 




0442 - 0444 

Determine if 

there are other 

units to be 

used 



0460 ~04G3 



A/0 




Back to 0400 
to repeat on 
next unit 



0543-0544 



0446-0455 0456-0457 



Restore 

int. sel. 

codes 



Jump 
to 0540 



AOD+ 1 
to 0010 



K 



Restore 
0010— zero 



Write 
file mark 



Are other 
units to 
be used 



—J Decision \^°— 



0612-0613 
Replace add 



1 to F. 
select code 



Restore 




Store # FM 


initial 




written at 


M code 




0014 



A r 



Have 10 8 
blks been 

written 



0576 -0607 



AOD+1 
to 0011 



SUB 
200o 



A^0 



/Have200 8 ^ 
-M blks been 1 » 
\ written / 



A/0 



Jump 

to 05 76 



Increase ter- 
minating address 
read and write 
by 108 



Jump 
to 0240 



6 



Repeat test to here 
with new blk length 
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0570-0573 



0565-0567 



' Have 600 8 Y/O 

blks been i ' 

„ written / No 



Restore 

0010-0011 

to aero 



Condition to de 
crease by 10g 
word on 2nd 200q K 
blks — & increasef^ 
on 3rd 200„ blks 



0574-0575 



Jump 
to 0240 



Kr\ Repeat test to 
) this point 



AOD+1 to 
F. M. code 



Load "A""# of 
F.M. written 
from 0014 



A*0 



( Decision V 



Store "A" 
at 0633 



Are there 
other units 
to search on 



Search 
back # 
of F. M. 



f Have total \ 

# of F.M. 
Vbeen search/ 



A i 



Restore 
initial 

F. M. codes 



Jump 
to 0700 



0702 -0704 



Write non- 
stop 100g 
word record 
2OO3 records 



Status 
unit X 



Store 
status 
0016 



Repeat Test 
13/ Jump \ / 



0723 
Decision |#— 



0710 



Mask or 
bit if 
coded 



0727-0730 0724 



Restore 
to zero 
0015 



A*0 



0720- 



AOD +1 
to select 
codes 



0722 



(Is there \Yes_ 
a re p'y A 77 



Are there other 
units to write 
non-stop &rewd 



Rewind 
unit X 



A = 
0716 




AOD +1 
to 0015 



A i 



/ Have 400s \ 
/ blks been W- 
\ written / 



SUB 
400„ 
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00000 6002 

4ooi* 
7101 
0100 
0002 
1771 
0000 
0000 

00010 0000 
0000 

oooo 

0200 
0000 
0000 
0000 
0000 

00020 3777 
4000 
2010 
1*010 
2000 
1+000 
2010 
1*010 

00030 2111 
2121 
2131 
2141 
1161 
0000 
0000 
0000 

0001*0 0100 
0252 

01*12 

0263 

0l*24 

0335 
Ol*77 
0636 

00050 071*1 
0336 
0500 
0637 
0337 
0501 
031*0 
0502 
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00060 0742 

0743 
0610 
0577 

o6o4 
7777 
7700 
3777 

00070 0070 
1001 
0000 
0000 
0000 
0000 

0000 

0000 

00100 o4oo 

4005 

4006 

1)007 

4oio 

4011 
4012 

4014 

00110 4015 
4oi6 
4017 
2026 

4022 
4141 

4142 

2027 

00120 4023 
4143 
4144 
2030 
4145 
4146 
4147 
4150 

00130 2031 
4151 
4152 

4153 
2032 
4154 
4155 
2033 
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00140 4156 
4157 
4l60 
2034 
4161 
2024 
4020 
2005 

00150 0OI6 
1066 
6011 
2005 
0277 
6003 
2005 
6110 

00160 2005 

0610 
6105 
2005 
3040 
6102 
2065 
4120 

00170 2020 
3467 
6006 
2005 
06ll 
4005 
5420 
6530 

00200 2062 
4163 

4164 
0400 
7101 
0240 
4007 
7572 

00210 7565 
7371 
4000 

7565 
7600 
4oi6 
6145 

7557 
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00220 T600 
7556 
7261 
6000 
7554 
7600 
4017 
6155 

00230 2120 
0277 
3521 
6I0O 
5420 
5421 
3713 
6507 

00240 2024 
4020 
2025 
4021 
0400 

4oo6 
4007 
7572 

00250 7565 

7371 

2010 

7565 
7600 

4oi6 
6145 
7557 

00260 7600 
7556 
7261 
4010 
7554 
7600 
4017 
6155 

00270 2120 
0600 
3521 
6l60 
5420 
5421 
3713 
6507 
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00300 2235 
0207 
&0b 
6113 
2030 
klk5 
2031 
1*151 

00310 2032 

k±5h 

2033 

4156 
7101 

0U00 
5617 
5617 

00320 5617 

5617 

6562 
5ko6 
0703 
600k 
7510 
7600 

00330 6560 
2016 
7701 
7101 
02W 
2111 
2121 
2131 

0031+0 21*H 
1171 
2000 
4000 

5to7 
0703 
6567 
2017 

00350 7702 
7101 

02V* 

7703 
7101 
02^0 
0000 
0000 
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00360 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00370 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

00400 2024 
1(020 
2025 
4021 

o4oo 

4oo6 
4007 

7574 
oo4io 7567 

7373 
2010 
7567 
76OO 

4016 
0301 
6146 

00420 7560 

7600 

7557 
7262 
4010 

7555 
7600 
4017 

00430 0301 

6155 
2120 
0600 

3521 
6160 
5420 

5421 
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0041*0 371^ 
6507 
2235 
0207 
3404 
6113 
2030 
4146 

00450 2031 

4152 

2032 

4155 
2033 
4157 
7101 
0540 

oo46o 5617 
5617 
5617 
5617 
6564 
54o6 
0703 
6004 

00470 7510 
7600 
6562 
2016 
7704 
7101 
0404 
2111 

00500 2121 
2131 
2141 
1172 
2000 
4000 
5407 
0703 

00510 6570 
2017 
7705 
7101 
0404 
7706 
7101 
0400 
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00520 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00530 7720 
7101 
05 ! *0 
0000 
0000 
0000 
0000 
0000 

0051*0 5^10 
0710 
6113 
oi*oo 

1*010 
7571 
2270 
0207 

00550 3^04 

611+1 
2030 
1*11+7 
51*11+ 
51*11 
31*13 
6003 

00560 7101 
0576 
51*12 
0703 
6030 
oi*oo 
1*010 
1*011 

00570 2207 
11*1*0 
1*205 

1*211 

7101 

02l*0 
2022 

0610 
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00600 4022 

inin 

4l42 
2023 
06l0 
4023 
4l43 

km 

006l0 7101 
0240 
562U 
651*6 
20l4 
4216 
7521 
2214 

OO62O 0701 
4212 
6504 
2214 
0207 
3404 
6106 
2031 

OO63O 4153 
7101 
0700 
0000 
5603 
6521 
2111 
2121 

00640 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00650 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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00660 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00670 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00700 22*10 

0303 

7537 
73*H 
2100 
7535 

7600 
koi6 

00710 0276 
6003 
0301 
6122 
5M5 
3M3 
6516 
7524 

00720 2221 
0207 
3!l04 
6007 
5615 
5615 
5615 
0^00 

00730 I1015 
6431 
0400 

7101 

0100 

7707 
7101 
0700 
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OOrjkO 1172 
2111 
2lkl 
ll6l 
2CXDO 
OOOO 
0000 
0000 

00750 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00760 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

00770 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

01000 0000 
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NUMBER: T-650 

TITLE: Plotter Test 

CATEGORY: 160-A 

MINIMUM EQUIPMENT NEEDED: 160-A, 165 

PURPOSE 

This test program will check the ability of the plotter, while using all functions, to 
produce repetitious patterns and will check the input switches. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 3000 

TERMINAL ADDRESS: 3150 

CHECK SUM: 3205 

STARTING ADDRESS: Set all Jumps and Stops, Run from 3060 

ADDITIONAL INSTRUCTIONS: Switches thru 12 on the plotter may now be set one 
at a time for alternating the number of boxes plotted. Each switch from left to right 
corresponds to the number of boxes plotted. The program shall cause the plotter to 
home on the starting point. 
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D. PROGRAM REPERTOIRE 

03000 2645 
4245 

7542 Select Plot 
0400 
4243 

7440 Pen up 
7405 +X+Y 
5640 

03010 1642 
6503 
7420 Pen down 

7405 +X+Y 
5633 

1633 
6503 

7406 -X+Y 

03020 5627 
1630 
6503 
5623 
6521 
2620 
4220 
0400 

03030 4217 

7412 -X-Y 

5615 

1615 

6503 

7411 «-Y 

5611 

1612 

03040 6503 
5605 
6513 

6015 Exit to Sense Sw. 
4401 
0005 
0000 
0000 

03050 0100 
0200 
0030 
0000 
0000 
0000 
0000 

165:2 



03060 7500 SeUct IMP 
4440 
7600 
4234 
2231 
4071 
2230 
4072 

03070 2227 
4073 
2073 

6473 E«it to Plot 
1171 
6004 
2172 
4332 

03100 6110 To Add 3110 
5471 
5472 
1611 

6004 To Add 3110 
6313 
0000 
0000 

03110 7101 Exit to Plot 
3000 
0000 
0000 
3134 
3120 
3134 
0000 

03120 0001 
0002 
0004 
0010 
0020 
0040 
0100 
0200 

03130 0400 
1000 
2000 
4000 
0001 
0002 
0003 
0004 
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03140 0005 
0006 
0007 
0010 
0011 
0012 
0013 
0014 

03150 0000 
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NUMBER: T670 

TITLE: Card Reader Test 

CATEGORY: 160-A, 167 or 167-2 

MINIMUM EQUIPMENT NEEDED: 160-A either 167 or 167-2 

PURPOSE 
This program will test the card reader. 

DESCRIPTION 

The test will check the reading ability of the reader using a constant pattern deck 
under normal, low, and high marginal conditions. 

When applicable this will check the Hollerith to binary coded decimal conversion against 
a pre- stored check list. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

1. Turn on paper tape reader and MC 

2. Set Load Clear switch on load 

3. Set Run switch 

LOADING ADDRESS: 1000 

TERMINAL ADDRESS: 1247 

CHECK SUM: 4607 

STARTING ADDRESS: 1000 Turn on Reader switch "Row 12" (If using column 1, 

corner cut cards) 

HALTS EXPLANATION 

1014 Single Cycle Read 

One card is read as a check buffer aginst which all other cards 
are checked. 

1) Reset Run switch or start at 1015 to compare consecutive cards 
with information of first card, stops indicate the following: 

1067 7701 = "A" defines status halt 

1034 7702 = Bit failure in "A" 

1037 7703 = Column failure in "A" 
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HALTS EXPLANATION (Cont'd) 

2) The Run switch may reset after each stop except status for 
program continuation. All errors detected are displayed 
before a new card is read. Vary margin switch between tests. 

1130 Free Run Read 

Three cards are read without a reselection between cards. Infor- 
mation is stored in a 3 card length buffer and is compared with 
correct information before reselection. 

1) Modify program for free run by setting P = 1045 and setting run. 

A = 7566 Z = 7704 

2) To load check buffer, reset Run switch or start at address 1000. 

1117 Hollerith to Binary Coded Decimal 

The 167 cannot be used for this section. In order to check conversion, 
cards are read and compared to the previously stored pattern. Use 
of a Hollerith punched deck is required according to format listed in 
the program. 

1) Set P = 1104 and set run to modify program for H to BCD 

A = 6012 C = 7706 

2) Reset Run switch or start at address 1000. 

3) Halts at 7701, 7702 and 7703 are similar to 1. a) above. 

4) New information may be checked by manually sweeping area 
1400 to 1450. Reset run to detect all errors and continue read. 

1141 Single Cycle Read Modification 

1) Set P = 1053 and set run 

A = 7566 Z = 7705 

2) Reset run switch to continue, and this will return to 1 above. 
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1000 


7566 


1001 


7600 


1002 


6165 


1003 


7562 


1004 


7257 


1005 


XXXX 


1006 


7560 


1007 


7600 


1010 


6157 


1011 


7701 


1012 


7554 


1013 


7600 


1014 


6153 


1015 


7550 


1016 


7255 


1017 


XXXX 


1020 


7546 


1021 


7600 


1022 


6145 


1023 


2240 


1024 


4204 


1025 


2246 


1026 


4204 


1027 


2100 


1030 


XXXX 


1031 


1500 


1032 


XXXX 


1033 


6005 


1034 


7702 


1035 


2305 


1036 


3625 


1037 


7703 


1040 


5706 


1041 


5711 


1042 


3622 


1043 


6514 


1044 


6432 


1045 


2225 


1046 


4341 


t047 


4215 


1050 


2225 


1051 


4332 


1052 


6147 


1053 


2216 


1054 


4347 


1055 


4207 


1056 


2216 


1057 


4340 



H to BCD = 6012 



SC = 2120, FR = 2360 



Check sum loaded 



SC = 1520, FR = 1760, H to BCD = 1450 (1520 for 1617) 



Check address 
N.I. address 
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1060 


6152 


1061 


6012 


1062 


7566 


1063 


XXXX FWA Check 


1064 


XXXX LWA+1 Check 


1065 


XXXX Code SC = 4502, 


1066 


4540 


1067 


7707 


1070 


2000 


1071 


2120 


1072 


2360 


1073 


1400 


1074 


1520 


1075 


1760 


1076 


1200 


1077 


1250 (1320 for 1617) 


1100 


1450 (1520 for 1617) 


1101 


4501 


1102 


4502 


1103 


4506 


1104 


2304 


1105 


4366 


1106 


2310 


1107 


4324 


1110 


2311 


1111 


4325 


1112 


2307 


1113 


4326 


1114 


2333 


1115 


4100 


1116 


1000 


1117 


7706 


1120 


6122 


1121 


2331 


1122 


4337 


1123 


2322 


1124 


4337 


1125 


2343 


1126 


4100 


1127 


1000 


1130 


7704 


1131 


6112 


1132 


2342 


1133 


4350 


1134 


2332 


1135 


4350 


1136 


2354 


1137 


4100 



FR = 4501 , H to BCD « 4506 
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1140 


1000 






1141 


7705 






1142 


0400 






1143 


7101 






1144 


1000 
BCD 






1200 


0061 


Equivalent 


to A 


1201 


0062 


ti 


» B 


1202 


0063 


1! 


" C 


1203 


0064 


II 


II £ 


1204 


0065 


II 


ii e 


1205 


0066 


II 


n y 


1206 


0067 


II 


" G 


1207 


0070 


II 


■ H 


1210 


0071 


II 


» I 


1211 


0041 


II 


» J 


1212 


0042 


II 


« K 


1213 


0043 


II 


" L 


1214 


0044 


a 


» M 


1215 


0045 


ii 


tt N 


1216 


0046 


ii 


» 


1217 


0047 


n 


it p 


1220 


0050 


ii 


M Q 


1221 


0051 


it 


■ R 


1222 


0022 


ii 


« S 


1223 


0023 


ti 


n T 


1224 


0024 


ii 


" U 


1225 


0025 


ti 


it v 


1226 


0026 


it 


tt W 


1227 


0027 


ti 


" X 


1230 


0030 


ti 


■ Y 


1231 


0031 


it 


« Z 


1232 


0012 


ii 


" 


1233 


0001 


n 


" 1 


1234 


0002 


ii 


ii 2 


1235 


0003 


n 


it 3 


1236 


0004 


it 


" 4 


1237 


0005 


ii 


.i 5 


1240 


0006 


ii 


» 6 


1241 


0007 


tt 


it 7 


1242 


0010 


ii 


'» 8 


1243 


0011 


ii 


.. 9 


1244 


0014 


ii 


» _ 


1245 


0013 


ti 


It = 


1246 


0034 


ii 


» ) 


1247 


0033 


tt 


II 

• 


1250 


0054 


ii 


11 * 


1251 


0053 


n 


n $ 


1252 


0074 


ii 


« ( 


1253 


0073 


it 


it 

> 
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BCD (continued) 



1254 
1255 
1256 
1257 



1317 



0021 
0060 
0040 
0020 



I i 



0020 



Equivalent to / 
n ii -f. 

ii ii _ 
i i ° 

I II 





HOLLERITH 


1200 


6162 


1201 


6364 


1202 


6566 


1203 


6770 


1204 


7141 


1205 


4243 


1206 


4445 


1207 


4647 


1210 


5051 


1211 


2223 


1212 


2425 


1213 


2627 


1214 


3031 


1215 


1201 


1216 


0203 


1217 


0405 


1220 


0607 


1221 


1011 


1222 


1413 


1223 


3433 


1224 


5453 


1225 


7473 


1226 


2160 


1227 


4020 


1230 


2020 



I i 



Equivalent to A, B 



11 


• C, D 


II 1 


» E, F 


II 


' G, H 


II 


' I, J 


II 1 


• K, L 


II 1 


• M, N 


II 1 


• 0, P 


II 


' Q, R 


It 


' S, T 


N 1 


' U, V 


II 


' W, X 


It 


• T, Z 


II 1 


• o, 1 


II 


' 2, 3 


II 1 


» 4, 5 


II 1 


• 6, 7 


II 1 


1 8, 9 


H 






mt *— 


II 1 


' ) . 


II 1 


• # $ 


II 1 


' ( , 


II 1 


1 / + 


It 1 


' - 


II 1 


1 0, 



\ V V \ 



1247 



2020 



0, 
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NUMBER: T670-1 

TITLE: Comprehensive Speed and Information Test 

CATEGORY: 160-A, 167 

MINIMUM EQUIPMENT NEEDED: 160-A, 167 or 167-2 

PURPOSE 

This test checks the operation of 167 or 167-2 card reader connected to 160-A computer. 



The test has 3 sections: 



DESCRIPTION 

1. Time check 

2. Data check, single cycle read 

3. Data check, free run read 



Sections 2 and 3 are run in non- conversion or H- 
depending upon a starting parameter in A. 



BCD and pack conversion mode, 



OPERATING INSTRUCTIONS 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 
STARTING ADDRESS: 



Paper Tape 

0000 

2140 

5166 

0100 



The routine continues until manually halted 



ADDITIONAL INSTRUCTIONS: 



HALTS 
0400 



0410 



Set bit in A to omit section 1 
Set bit 1 in A to omit section 2 
Set bit 2 in A to omit section 3 
Set bit 3 in A to test H — »• BCD and pack mode 

EXPLANATION 

Status response appears in A 

To re-start: Correct error condition. Master clear if there was a 

feed failure, program error, or amplifier failure. Set P = 0400. Run. 

Timing error 

A = 0001. There is less than 79 ms of computing time available between 

the 80th column of one card and the 1st column of the next. 
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HALTS 



02x0 
03x0 
0200 
0300 



0210 
0310 
0220 
0320 

0230 
0330 



EXPLANATION (Cont'd. ) 

A = 0002. There is less than 1. 5 ms of computing time available 

between inputting of columns. 

To restart: Master clear. Set P = 0410. Run. 

Data error section 2. 

Data error section 3. 

Error found in 5252 card. 

Bit in error appears in A. Step twice to load number of column in 
error into A. Clear A after loading column number to ship checking 
remainder of card. 
To restart: Press run. 

Error found in 2525 card. 

Same description as for 5252 card. 

Error found in random card. 

A contains bit in error. A contains zero if logical check sum cannot 
detect the row in error. 
To restart: Press run. 

Error found in Hollerith card. 

BCD code actually read appears in A 6-11. 

BCD code that should have been read appears in A 0-5. 

If A is zero the card is not being recognized as a Hollerith card. 

Step twice to load number of column in error into A. 

Clear A after loading column number to skip checking remainder of 

card. 

To restart: Press run. 
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REM 










REM 










REM 






0000 




ORG 







0000 




CON 





0000 


0000 


STOP 







0001 


0000 


CKFLG 







0002 


0000 


CKSUP 







0003 


0000 


CKSLO 







0004 


0000 


CKS3 







0005 


5252 


C052 




5252 


0006 


2525 


C025 




2525 


0007 


3777 


LOI 1 




3777 


0010 


2260 


BUFEND 




BUF 790 


001 1 


2261 


BUFENT 




BUF 60D 


0012 


2141 


BUFC 




BUF 


0013 


2141 


BUFI 




BUF 


0014 


2141 


BUFI2 




BUF 


0015 


0000 


ACONT 







0016 


0000 


DELAY 







0017 


0000 


CONT 




d 


0020 


0000 


COLCT 







0021 


0000 


FONT 







0022 


2041 


TABC 




TAB 


0023 


2041 


TABI 




TAB 


0024 


0000 


TEMP 







0025 


0000 


COL 







0026 


0000 


COCNT 







0027 


0000 


STATUS 







0030 


0000 


SAVE 









0100 




PRG 


100 


100 


7101 


START 


JFI 


1 


0101 


0500 






CRIS7 




0176 




PRG 


176 


0176 


7101 




JFI 


1 


0177 


0000 


ST52 







0200 


7700 




HLT 




0201 


2025 




LDD 


COL 


0202 


7101 




JFI 


1 


0203 


0176 






ST52 -1 



160-At 167 AND 167-2 TEST 
CARD. REAOEP PROGRAMMED 
FOR NORMAL CHANNEL 



CONTROLS SCR OR FRR ER STOP 
A PARAMETER 



ERROR STOPS 
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0206 




PRG 


206 


0206 


7101 




JFI 


i 


0207 


0000 


ST2S 







0210 


7700 




HLT 




021 1 


2025 




LOD 


COL 


0212 


7101 




JFI 


1 


0213 


0206 






ST25 




0216 




PRG 


216 


0216 


7101 




JFI 


1 


0217 


0000 


STRA 







0220 


7700 




HLT 




0221 


7101 




JFI 


1 


0222 


0216 






STRA 




0226 




PRG 


226 


0226 


7101 




JFI 


1 


0227 


0000 


STH 







0230 


7700 




HLT 




0231 


2025 




LOO 


COL 


0232 


7101 




JFI 


1 


0233 


0226 






STH 




0276 




PRG 


276 


0276 


7101 




JFI 


1 


0277 


0000 


ST52F 







0300 


7700 




HLT 




0301 


2025 




LDD 


COL 


0302 


7101 




JFI 


1 


0303 


0276 






ST52F 




0306 




PRG 


306 


0306 


7101 




JFI 


1 


0307 


0000 


ST25F 







0310 


7700 




HLT 




031 1 


2025 




LOO 


COL 


0312 


7101 




JFI 


1 


03J3 


0306 






ST25F 




03(6 




PRG 


316 


0316 


7101 




JFI 


1 


0317 


0000 


STRAF 







0320 


7700 




HLT 




0321 


7101 




JFI 


1 


0322 


0316 






STRAF 




0326 




PRG 


326 


0326 


7101 




JFI 


1 



-I 



-I 



-I 



-I 



-I 
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0327 


0000 


STHF 







0330 


7700 




HLT 




0331 


2025 




LUO 


COL 


0332 


7101 




JFI 


1 


0333 


0326 






STHF -1 




0375 




PRG 


375 


0375 


7101 




JFI 


1 


0376 


0000 


STSTAT 







0377 


2027 




LOO 


STATUS 


0400 


7700 




HLT 




0401 


7101 




JFI 


1 


0402 


0375 






STSTAT -1 




0406 




PRG 


406 


0406 


7101 




JFI 


1 


0407 


0000 


STTIM 







0410 


7700 




HLT 




041 1 


710! 




JFI 


1 


0412 


0406 






STTIM -I 




0500 




PRG 


500 


0500 


4017 


CRI67 


STO 


CONT 


0501 


0400 




LON 





0502 


4001 




STO 


CKFLG 


0503 


2200 




LDC 


C8I67A 


0504 


0506 








05 OS 


0070 




ACJO 




0506 


2017 


CRI67A 


LOO 


CONT 


0507 


0201 




LPN 


1 


0510 


6103 




NZF 


CRI67B 


051 1 


7101 




JFI 


1 


0512 


0522 






CRTIME 


0513 


2017 


CRI67B 


LOO 


CONT 


0514 


0202 




LPN 


2 


0515 


6103 




NZF 


CRI67C 


0516 


7101 




JFI 


1 


0517 


0674 






CRSCR 


0520 


7101 


CRI67C 


JFI 


1 


0521 


1043 






CRFRR 


0522 


7500 


CRTIME 


EXC 


4540 


0523 


4540 








0524 


7600 




INA 




0525 


4027 




STD 


STATUS 



SET BANKS 



CHECK COL 80-1 TIME 
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052S 


0277 


LPN 


77 


0527 


6005 


ZJF 


CWTM2 


0530 


7100 


JPR 


STSTAT 


0531 


0376 






0532 


7101 


JF1 


1 


0533 


0522 




CRTIME 


0534 


7500 CRTM2 EXC 


4502 


0535 


4502 






0536 


7254 


INP 


0UFT 


0537 


2261 




BUF 


0540 


7500 


EXC 


4540 


0541 


4540 






0542 


7600 


!NA 




0543 


4027 


STD 


STATUS 


0544 


0277 


LPN 


77 


0545 


6005 


ZJF 


CRTM4 


0546 


7 100 


JPR 


STSTAT 


0547 


0376 






0550 


7101 


JFI 


1 


0551 


0522 




CRTIME 


0552 


7500 CPTM4 EXC 


4502 


0553 


4502 






0554 


2600 


LCC 


3343 


0555 


3343 






0556 


40 16 


STD 


OELAY 


0557 


2124 CRTM6 LOI 


TEMP 


0560 


5416 


AOD 


DELAY 


0561 


6502 


NZB 


CHTM6 


0562 


7230 


INP 


«Ul T 


0563 


226 1 




RUF 


0564 


7500 


EXC 


4540 


0565 


4540 






0566 


7600 


INA 




0567 


4027 


STO 


STATUS 


0570 


0210 


LPN 


10 


0571 


6007 


ZJF 


tRTHIO 


0572 


2027 


LDD 


STATUS 


0573 


0204 


LPN 


4 


0574 


61 12 


NZF 


CRTMI2 


0575 


0401 


LON 


1 


0576 


7 100 


JPR 


STTIM 


0577 


0407 







300 



75 MS. OELAY 



BOD 



167:12 



0600 


7500 


CRTMIO 


EXC 


4540 


0601 


4540 








0602 


7600 




SNA 




C603 


4027 
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BUFI 




1534 


21 13 


CK32 


LOI 


BUFI 




1535 


1406 




SCO 


C025 




1536 


6302 




NJF 


CK33 




1537 


6013 




ZJF 


CK34 




1540 


4024 


CK33 


STO 


TEMP 




1541 


2013 




LOO 


BUFI 




1542 


3412 




SBO 


BUFC 




1543 


0601 




AON 


1 




1544 


4025 




STD 


COL 




1545 


2024 




LOD 


TEMP 




1546 


7100 


CK33Z 


JPR 


o 




1547 


2140 










1550 


6302 




NJF 


CK34 




1551 


6024 




ZJF 


CK37 




1552 


5413 


CK34 


AOO 


BUFI 




1553 


21 13 




LOI 


BUFI. 




1554 


1405 




SCD 


C052 




1555 


6302 




NJF 


CK35 




1556 


6013 




ZJF 


CK36 




1557 


4024 


CK35 


STO 


TEMP 




1560 


2013 




LOO 


BUFI 




1561 


3412 




SBD 


BUFC 
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1562 


0601 




AON 


1 


1563 


4025 




STO 


COL 


1564 


2024 




LOO 


fEMP 


1565 


7100 


GK35Z 


JPR 


A 


1566 


2140 








1567 


6302 




NJF 


CK36 


1570 


6005 




ZJF 


CK37 


1571 


54 13 


CK36 


AOO 


RUFI 


1572 


3600 




SBC 


BUF 


1573 


2261 








1574 


6540 




NZB 


CK32 


1575 


7101 


CK37 


JFI 


1 


1576 


!275 






CK 


1577 


7101 




JFI 


1 


1600 


0000 


CKH 







1601 


2012 




LOO 


bUFC 


1602 


4013 




STO 


SUFI 


1603 


2022 




LOO 


TABC 


1604 


4023 




STO 


TABI 


1605 


21 13 


CKH2 


LOI 


BUF I 


1606 


1200 




LPC 


T700 


1607 


7700 








1610 


01 1 1 




LS6 




161 1 


4024 




STO 


TEMP 


1612 


2024 


CKH3 


LOO 


TEHP 


1613 


1523 




SCI 


TABI 


1614 


6006 




ZJF 


CKH4 


1615 


5423 




AOO 


TABI 


1616 


3600 




SBC 


TAB 


1617 


2140 








1620 


6506 




NZB 


CKH3 


1621 


6014 




ZJF 


CKHIO 


1622 


5423 


CKH4 


AOO 


TABI 


1623 


3600 




BBC 


TAB 


1624 


2140 








1625 


6104 




NZF 


CKH5 


1626 


2200 




LDC 


TAB 


1627 


2041 








1630 


4023 




STO 


TABI 


1631 


21 13 


CKH5 


LO! 


BUF I 


1632 


0277 




LPN 


77 



80D 



-I 
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1633 


1523 




SCI 


TABI 


1634 


6073 




ZJF 


CKHI 4 


I63S 


5413 


CKH10 


AOD 


BUFI 


1636 


2022 




LOO 


TSBC 


1637 


4023 




STO 


TABI 


1640 


21 13 




LDI 


BUFI 


1641 


1200 




LPC 


7700 


1642 


7700 








1643 


01 1 1 




LS6 




1644 


4024 




STO 


TEMP 


1645 


2024 


CKHI 1 


LOO 


TEMP 


1646 


1523 




SC! 


TABI 


1647 


6017 




ZJF 


CKHI2 


1650 


5423 




AOD 


TABI 


1651 


3600 




SBC 


TAB 77 


1652 


2140 








1653 


6506 




Nze 


CKHI 1 


1654 


2200 


CKH8 


LDC 


STH 


1655 


0227 








1656 


30 15 




AOO 


ACONT 


1657 


4204 




STF 


CKH9 1 


1660 


0400 




LON 





1661 


4025 




STO 


COL 


1662 


7 100 


CKH9 


JPR 


* 


1663 


2140 








1664 


7101 




JFI 


1 


1665 


1577 






CKH -1 


1666 


5423 


CKHI2 


AOO 


TiBI 


1667 


3600 




SBC 


TAB 77 


1670 


2140 








1671 


6104 




NZF 


CKHI3 


1672 


2200 




LOC 


TAB 


1673 


2041 








1674 


4023 




STO 


TABI 


1675 


21 13 


CKHI 3 


LDI 


BMFI 


1676 


0277 




LPN 


77 


1677 


1523 




SC! 


TABI 


1700 


6524 




NZB 


CKH8 


1701 


2023 




LOO 


TABI 


1702 


0701 




SBN 


1 


1703 


4023 




STO 


TABI 


1704 


3600 




SBC 


TAB -1 
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I70S 


2040 






1706 


6106 


NZF 


CKHI5 


1707 


2200 


LDC 


TAB 


1710 


2135 






171 1 


4023 


STO 


TABI 


1712 


7101 


JFI 


1 


1713 


1740 




CKHI7 


1714 


2023 CKHI5 LOO 


TABI 


1715 


0701 


SB-N 


1 


1716 


4023 


STO 


T1BI 


1717 


3600 


SBC 


TAB 


1720 


2040 






1721 


6106 


NZF 


CKHI4 


1722 


2200 


LDC 


TAB 


1723 


2136 






1724 


4023 


STO 


TABI 


1725 


7101 


JFI 


1 


1726 


1740 




CKHI7 


1727 


2023 CKHI4 LOO 


TABI 


1730 


0701 


SBN 


1 


1731 


4023 


STO 


TABI 


1732 


3600 


SBC 


TAB 


1733 


2040 






1734 


6104 


NZF 


CKHI7 


1735 


2200 


LOC 


TAB 


1736 


2137 






1737 


4023 


STO 


TABI 


1740 


2012 CKHI7 LOO 


BUFC 


1741 


4013 


STD 


BUFI 


1742 


2200 


LOC 


STH 


1743 


0227 






1744 


3015 


AOO 


ACONT 


1745 


4222 


STF 


CKH25 


1746 


4252 


STF 


CKH27 


1747 


2113 CKH20 LD1 


BUFI 


1750 


1200 


LPC 


7700 


1751 


7700 






1752 


01 1 1 


LS6 




1753 


1523 


SCI 


TiBI 


1754 


6020 


ZJF 


CKH2I 


1755 


2013 


LOO 


BUFI 



74 



-I 



75 



-I 



76 
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1756 


3412 




SBO 


8UFC 


1757 


0102 




LSI 




1760 


0601 




AON 


1 


1761 


4025 




STO 


CBL 


1762 


2113 




LOI 


BUFI 


1763 


1200 




IPC 


7700 


I76U 


7700 








1765 


1523 




SCI 


TABI 


1766 


7100 


CKH25 


UPR 


* 


1767 


2140 








1770 


6304 




NJF 


CKH2I 


1771 


6103 




NZF 


CKH2I 


1772 


7101 




JFI 


1 


1773 


1577 






CKH -1 


1774 


5423 


CKH2I 


AOO 


T8BI 


1775 


3600 




SBC 


TAB 77 


1776 


2140 








1777 


6103 




NZF 


CKH22 


2000 


2022 




LOO 


TABC 


2001 


4023 




STO 


TABI 


2002 


21 13 


CKH22 


LOI 


BUFI 


2003 


0277 




LPN 


77 


2004 


1523 




SCI 


TABI 


2005 


6020 




ZJF 


CKH23 


2006 


2013 




LOO 


BUFI 


2007 


3412 




SBO 


BUFC 


2010 


0102 




LSI 




201 1 


0602 




AON 


2 


2012 


4025 




STO 


COL 


2013 


21 13 




LOI 


flWFI 


2014 


0277 




LPN 


77 


2015 


01 1 1 




LS6 




2016 


1523 




SCI 


TABI 


2017 


7100 


CKH27 


JPR 


* 


2020 


2140 








2021 


6304 




NJF 


C8H23 


2022 


6103 




NZF 


C8H23 


2023 


7101 




JFI 


1 


2024 


1577 






CKH -1 


2025 


5423 


CKH23 


AOO 


TABI 


2026 


3600 




SBC 


TAB 77 


2027 


2140 
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2030 


6103 


2031 


2022 


2032 


4023 


2033 


5413 


2034 


3600 


2035 


221 I 


2036 


6567 


2037 


7101 


2040 


1577 


2041 


0001 


2042 


0002 


2043 


0003 


2044 


0004 


2045 


0005 


2046 


0006 


2047 


0007 


2050 


0010 


2051 


001 1 


2052 


0012 


2053 


0013 


2054 


0014 


2055 


0015 


2056 


0016 


2057 


0017 


2060 


0020 


2061 


0021 


2062 


0022 


2063 


0023 


2064 


0024 


2065 


0025 


2066 


0026 


2067 


0027 


2070 


0030 


207 1 


0031 


2072 


0032 


2073 


0033 


2074 


0034 


2075 


0035 


2076 


0036 


2077 


0037 



CKH24 



TAB 



NZF 


CKH24 


LOO 


TBBC 


STO 


TABI 


A00 


HUFI 


SBC 


BUK 


NZB 


CKH20 


JFI 


1 




CKH 


REM 


1 




1 

2 




3 




4 




5 




6 




7 




10 




1 1 




12 




13 




14 




15 




18 




17 




20 




21 




22 




23 




24 




25 




2b 




27 




30 




jl 




32 




33 




34 




35 




38 




37 



40D 



-I CARD CHECK COMPLETED 
TABLE OF LEGAL COOES 
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5100 


0040 


4$ 


2101 


004 1 


41 


2 102 


0042 


«2 


2103 


0043 


43 


2 104 


0044 


44 


2 105 


0045 


45 


2 106 


0046 


4 6 


2107 


0047 


47 


2110 


0050 


5<D 


2111 


0051 


51 


2112 


0052 


52 


2)13 


0053 


50 


21 14 


0054 


54 


2 115 


0055 


55 


2116 


0056 


56 


21 17 


0057 


57 


2120 


0060 


80 


2121 


006 1 


61 


2 122 


0062 


62 


2123 


0063 


63 


2124 


0064 


64 


2 125 


0065 


65 


2126 


0066 


66 


2127 


0067' 


67 


2 130 


0070 


7U 


2131 


0071 


71 


2 132 


0072 


72 


2133 


0073 


73 


2134 


0074 


74 


2 135 


0075 


78 


2136 


0076 


76 


2137 


0077 


77 


2 140 


0000 » 


BSS 1 


2141 


0000 BUF 


RSS 1 




0000 


ENO 
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NUMBER: T681-1 

TITLE Arithmetic Test for 168-1 

CATEGORY: 160 -A, 168-1 

MINIMUM EQUIPMENT NEEDED: 160-A, 168-1 

PURPOSE 
To ascertain that the arithmetic operations of the 168-1 are functioning properly. 

DESCRIPTION 

The 160-A generates operands and directs the 168-1. Subtraction is used to check, 
addition and division is used to check multiplication. 



OPERATING INSTRUCTIONS 



LOAD INSTRUCTION: Paper Tape 



INPUT PARAMETERS 



LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 
STARTING ADDRESS: 



0000 
0770 
0160 
0000 
0001 
0002 
0003 
0004 

ADDITIONAL INSTRUCTIONS : 



At 7777 stop with P =0010 
set A to the number of times 
to repeat selected test. 

Previously run test 

Add /Subtract only 

Short Multiply /Divide only 

Long Multiply/Divide only 

All tests 

1) All selective stop switches up 

2) All selective jump switches down 



HALTS 

7777 

7700 

7707 

7701 

7702 

7700 

7700 

7700 



EXPLANATION 

P = 0010, Load number of test runs in A and run 

P = 0133, Non-zero status ^ 0004 in A 

P = 0152, Add overflow error 

P = 0244, 0266, 0450, and 0647, First word error 

P = 0252 and 0655, Second word error 

P = 0255, 0326, 0526, Non-zero status in A 

P = 0431, and 0623, Non-zero status ^ 0010 in A 

P = 0440 and 0641, Divide fault error 
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HALTS EXPLANATION (Cont'd. ) 

7702 P = 0457, Remainder $ zero 

7703 P = 0673, Remainder ^ zero 
7777 P = 0754, End of test 
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00000 7lto Same tests 
711*0 Add/Subt 
7lto . Short Mult/Div 
Tito Long Mult/Div 
Tito All Tests 
0000 
0000 
0000 

00010 TTTT Load no. of test runs in A and run 
6004 Restore counters, constants 

4100 
0752 

otoo 

4100 

1000 1000-1001 Operands 

2noo 100U-1005 Add result 

1006-1007 Sub. result 
00020 1001 1010-1011 Short Mult, result 

4100 1012-1011 Short Div. result 

1002 101U-1017 Long Mult, result 

4100 1020-1021 Long Div. result 

1003 
4100 
0750 
4100 

00030 0T41 
7101 

0100 . (0^00) (0500) 

0000 

0000 

0000 

0000 

0000 

oooto 0100 ( ,oo) (0500) (0100) 

0360 
0560 
0050 

0000 
0000 
0000 

00050 2200 Establish all tests 
0100 

4312 
4032 
4ioo 

0731 
2200 
0300 
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00060 4ioo 
0254 

2200 

0500 

4100 

0461 
o4oo 
6457 

00070 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00100 7500 Add 

3323 
7334 

1004 

7101 

0120 
0000 
0000 

00110 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00120 7217 

1006 
7500 

3304 
7600 

6053 ZJF if zero - 0200 
0704 

6103 
00130 6010 

0000 
0604 

7700 Non-zero status i OOOl* in A 

7101 

0100 

1000 

1004 
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00140 2100 
1001 
6203 • 
2500 
1001 
3600 
0316 
6303 

00150 7101 
0253 

7707 Add overflow error 
7101 
0100 
0000 
0000 
0000 

00160 2200 = Establish Add/Sub only 
0100 
1*040 
6001 
1(032 
4155 
2200 
0700 

00170 kl6l 

o4oo 

7101 
0010 
0000 
0000 
0000 
0000 

00200 7500 Subtract 
3363 
7303 
1006 
7353 
1004 
7101 
0220 

00210 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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00230 72^0 
1010 
7500 
3304 
7600 
6130 m? - 0255 

2100 Compare 
1006 

00230 6131 
2100 
1007 
6126 
2100 
1000 
6223 
2100 

00240 1006 
3100 
1000 
6002 

7701 First word error 
2100 
1007 
3100 

00250 1001 
6002 

T702 Second word error 

7101 

0700 (0300) 

7700 Non-zero status in A 
6503 

1002 

OO260 1006 
2100 
1006 
3500 
1000 
6002 

7701 Tlrst word error 
2100 

00270 1007 
3500 
1001 
6420 
6522 
0000 
0000 
0000 
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00300 7500 Short Multiply 
3301 
7333 
1001 
7332 
1003 
7101 
0320 

00310 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00320 7217 

1012 

7500 
330^ 
7600 
6053 

7700 Non- zero status in A 
7101 

00330 0300 
0000 
0000 
0000 
0000 
1000 
1002 
1010 

003110 0000 

0000 

0000 
0000 
0000 
0000 
0000 
0000 

00350 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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00360 2200 Establish short multiply / 
03p0 Divide only 

6001 
1*032 
M55 
2200 
0700 

00370 kl&y 
0400 
7101 
0010 
0000 
0000 
0000 
0000 

OOitOO 7500 Shor t Divide 
3300 
7363 
1012 
7362 
1003 
7101 ■ 
0h2O 

00410 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00^20 72^7 

101U 
7500 

3304 
7600 
6016 
0710 
6003 

00^30 0610 

2100 Non-zero status ^ 0010 in A 

1002 
6024 
2500 
1002 
6021 
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004to 7700 Divide fault (Divide by zero) 
7101 
0300 

2100 Compare 
1012 
3500 
1000 
6002 

00^50 7701 Firot word error 
2100 
1013 
6005 
2500 
1013 
6002 
7702 Remainder f zero 

ooi»6o 7101 

0700 (0500) 

0000 

0000 

0000 

1010 

1002 

1012 

00470 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00500 7500 Long multiply 
3303 
7334 
1004 
7101 
0520 
0000 
0000 

00510 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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00520 7217 

1021 Input disconnect fails if program stops 

7500 here awaiting an input. 

3304 

7600 

6053 

7700 Non-zero status in A 

7101 

00530 0500 
0000 
0000 
0000 
0000 
0000 
1000 
1014 

005^0 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

00550 0000 

0000 
0000 
0000 
0000 
0000 
00Q0 
0000 

OO560 2200 Establish long multiply / 
0500 Divide only 
4o4o 
6001 
U032 

4155 

o4oo 

7101 
00570 0010 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
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00600 7500 Long Divide 
3302 
7373 
1020 
7372 
1004 
7101 
0612 

00610 7500 
3310 
7265 
1024 
7500 
3304 
7600 
6023 

00620 0710 
6003 
0610 

7700 Non-zero status / 0010 in A 
2100 
1002 
6010 
2500 

OO630 1002 
6110 
2500 
1003 
6105 
6043 
2100 
1903 

00640 6040 

7700 Divide Fault 
2100 Compare 
1020 

3500 
1000 
6002 

7701 First word error 

OO65O 2100 
1021 
3500 
1001 
6002 

7702 Second word error 
2100 

1022 
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00660 6010 
2500 
1022 
6110 
2500 
1023 
6105 
6011 

00670 2100 
1023 
6006 

7703 Remainder 4 zero 

6104 

1014 

1002 

1020 

OO7OO 2500 Alter first operand 
1000 
4100 
1000 
2500 
1001 
4100 
1001 

00710 6320 
04ll 

5100 

1000 
6214 
0400 
4100 
1000 

00720 0411 

5100 

1001 

6205 

0400 
4100 
1001 

6011 
00730 7101 

0100 (0300) (0500) 

0000 

0000 

0000 

0000 

0000 

0000 
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00740 2200 Alter gecond operand 
0000 
0102 
6013 
U303 

3621 Check for end of test 
6112 
5600 

00750 0000 Number of tests completed 
3600 

0000 no. of times to repeat 
6523 

7777 End of Test 
7112 
2210 
4316 

00760 2317 
4100 
1002 
4100 
1003 
6535 
0715 
0011 

00770 1636 cheek sum constant 
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NUMBER: 

TITLE: 

CATEGORY: 



T681-2 

AU Select Test 

160-A, 168-1 



MINIMUM EQUIPMENT NEEDED: 160-A, 168-1 

PURPOSE 

This test checks, by selecting another external equipment, whether the 168-1 can 
be interrupted at any point and, upon reselection, resume operation without error. 
All of the 168-1 status replies are also checked. 

DESCRIPT ION 

Tests all 168-1 functions by intermixing them with paper tape reader codes and I/O 
instructions. Errors are detected by using fixed operands. 

OPERATING INSTRUCTIONS 



LOAD INSTRUCTION: 


Paper Tape 


LOADING ADDRESS: 


0000 


TERMINAL ADDRESS: 


0673 


CHECK SUM: 


0160 


STARTING ADDRESS: 


0000 



ADDITIONAL INSTRUCTIONS: 



HALTS 

7777 
7700 
770X 



1. Place a loop of tape in the paper tape reader 
(any loop is satisfactory since the data is not 
used). 

2. Enter number of test runs in A. 



EXPLANATION 

End of test 

Status error 

Operation error X = wrong word 
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10000 



10010 



10020 



10030 



ioouo 



10050 



610U 

1*020 
7101 
0100 
li021 
01*00 
1*020 
7101 

0100 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0001 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



clr counter 

store new count 
clr counter 



STOPS 
7777 End of test 
7700 Status error 
770X Operation error 



counter 

count 



OPERATION 
Load a 0000 

M. C.j Place number of tests 
in Aj Run stop at end of test 
(7777) 



New number of tests may be 
established by placing the 
number in A at the end of test 
stop and run again without M.C. 



If nothing is entered in A, 
the previous number of tests 
will run again. 
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10060 



10070 



10100 



10110 



10120 



10130 



0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




7500 


sel start 


3-JQU 


ready 


7600 




6002 




7700 


error 


7500 


sel 11 div. 


3300 




7U1U 




7U00 




7U02 




7600 




0706 




6002 




7701 


error 


7600 




6002 




7702 


error 


7500 


sel 11 mult 


3301 




71*02 




7U03 




7600 




0706 




6002 




7701 


error 


7600 




6002 




7702 


error 


7500 


sel 22 div. 


3302 




7U1U 




7U00 
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loiuo 



10150 



10160 



10170 



10200 



10210 



71*00 




71*00 




71*02 




71*00 




7600 




0706 




6002 




7701 


error 


7600 




6002 




7702 


error 


7600 




6002 




779? 


error 


7600 




6002 




7704 


error 


7500 


sel 22 mult 


3303 




71*02 




71*00 




71*03 




71*00 




7600 




0706 




6002 




7701 
7600 


error 


6002 




7702 


error 


7600 




6002 




7703 


error 


7600 




6002 




7704 


error 


7500 


sel add 


3323 




71*01* 




71*00 




71*02 




71*00 




7600 




0706 




6002 




7701 


error 


7600 




6002 
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10220 



10230 



1021*0 



10250 



10260 



10270 



7702 


error 


7500 


sel sub. 


336? 




7U11 




71*00 




71*03 




71*00 




7600 




0706 




6002 




7701 


error 


7600 




6ool* 




7702 


error 


0000 




0000 




7500 


sel 11 div. 


3300 




7500 


sel reader 


1*102 




7600 




7500 


re sel 


3310 




7UU* 




7500 


sel reader 


1*102 




7600 




7500 


re sel 


3310 




71*00 




71*02 




7500 


sel reader 


1*102 




7600 




7500 


re sel 


3310 




7600 




0706 




6002 




7701 


error 


7500 


sel reader 


1*102 




7600 




7500 


sel start 


330U 


unload not complete 


7600 




0720 




6002 
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10300 



10310 



10320 



10330 



103U0 



10350 



7700 


error 




7500 


re sel 




3310 






7600 






6002 






7702 


error 




01*77 






0701 






6501 






7500 


sel start 




330U 


ready- 




7600 






6002 






7700 


error 




7500 


sel 11 mult 




3301 






7500 


sel start 




330U 


ready 




7600 






0700 






6002 






7700 


error 




7500 


sel reader 




1*102 






7500 


re sel 




3310 






71*02 






7500 


re sel 




3310 






71*03 






7500 


sel reader 




1*102 






7600 






7500 


re sel 




3310 






7600 






0706 






6002 






7701 


error 




7500 


sel start 


unload not complete 


3301* 






7600 






0720 






6002 






7700 


error 




7500 


re sel 




3310 






7600 







168-1:20 



10360 



10370 



iol*oo 



10l»10 



101*20 



101*30 



6002 




7702 


error 


7500 


sel 22 div. 


3302 




7i*U* 




71*00 




7U00 




7500 


sel reader 


1*102 




7500 


re sel 


3310 




71*00 




7U02 




7U00 




7500 


sel start 


3301* 


busy compute 


7600 




071*0 




6002 




7700 


error 


7500 


re sel 


3310 




7600 




0706 




6002 




7701 


error 


7600 




6002 




7702 


error 


7500 


sel reader 


1*102 




7500 


re sel 


3310 




7600 




6002 




7703 


error 


7600 




6002 




7704 


error 


7500 


sel 22 mult. 


3303 




71*02 




71*00 




71*03 




71*00 




7500 


sel start 


3301* 




7600 


busy compute 
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louiiO 



10U50 



10I460 



101*70 



10500 



10510 



07ilO 




6002 




7700 


error 


7500 


re sel 


3310 




7600 




0706 




6002 




7701 


error 


7500 


sel reader 


U102 




7600 




7500 


re sel 


3310 




7600 




6002 




7702 


error 


7600 




6002 




7703 


error 


7600 




6002 




7704 


error 


7500 


sel add 


3323 




7U0li 




7500 


sel reader 


10.02 




7600 




7500 


re sel 


3310 




7U00 




7402 




7U00 




7600 




0706 




6002 




7701 


error 


7500 


sel start 


3301+ 


unload not complete 


7600 




0720 




6002 




7700 


error 


7500 


sel reader 


U102 




7600 




7500 


re sel 
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10520 3310 
7600 
6002 

7702 error 
7500 sel reader 
1*102 
7600 
7500 sel start 

10530 33QU 
7600 
6002 

7700 error 
7500 sel sub 
3363 

7500 sel start 
3301* ready 

1051*0 7600 
6002 

7700 error 
7500 re sel 
3310 

71*11 
71*00 
71*03 

10550 71*00 

7600 
0706 
6002 

7701 error 
7500 sel start 
3301* 

7600 unload not complete 

10560 0720 
6002 

7700 error 
7500 re sel 
3310 
7600 
6002 

7702 error 

10570 7500 sel 11 div for div fault 
3300 
7310 
0606 
7500 

3301* sel start 
7600 
0750 div fault and busy compute 
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10600 



10610 



10620 



10630 



106U0 



10650 



6006 
7700 
0603 
1670 
0001 
01*77 
0701 

6501 
7500 
3301* 
7600 
0730 
6002 
7700 
7500 

3323 
7310 
O636 
7500 
3301* 
7600 
072lt 
6007 

7700 
0632 
3777 
3777 
0001 
0000 
7500 
3363 

7310 
0655 
75oo 
3301* 
7600 
0721* 
6007 
7700 

0651 
3777 
3777 
7776 
7777 
51*20 
2021 
31*20 



sel start 

div fault and unload not comolete 



error 

sel add for add overflow 



sel start 

add overflow and unload not complete 



sel sub for sub overflow 

sel start 

sub overflow and unload not complete 

error 



advance counter 
compare to count 
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10660 6005 



10670 



7500 \ 
3301 J 




sel. clear MDU 


7101 


jump to repeat test 


0100 




7500 1 
3300 / 


sel. clear MDU 




01*00 




7777 


end of test 


7101 \ 
0000/ 




jump to establish n< 


2665 


sum 



168-1:25 



NUMBER: T682-1 

TITLE: Arithmetic Test for 168-2 

CATEGORY: 160-A, 168-2 

MINIMUM EQUIPMENT NEEDED: 160-A, 168-2 



PURPOSE 

To ascertain that the arithmetic operations (including compute result operations) of the 
168-2 are functioning properly. 

DESCRIPTION 

The test routine consists of four separate arithmetic tests. The 160 -A generates 
operands and directs the 168-2. Subtraction is used to check addition and division is 
used to check multiplication. 



OPERATING INSTRUCTIONS 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 
STARTING ADDRESS: 



Paper Tape 

0000 

2500 

0160 

0000 

0001 

0002 

0003 

0004 



INPUT PARAMETERS 

At 7777 stop with P =0010 

Set A to number of times 

to repeat selected test. 

Previously selected test 

Add /Subtract only 

Multiply /Divide only 

Shift /Normalize only 

All tests, including "compute 

result" operations. 



ADDITIONAL INSTRUCTIONS: 



1) All selective stop switches up. 

2) All selective jump switches down. 



HALTS 

7777 
7700 

7700 
7700 



EXPLANATION 

P = 0010, Set A to number of repetitions for test and restart. 

P = 0131, 0252, 0326, 0431, 0541, 0560 and 0573, Incorrect 

status displayed in A. 

P = 0144, Incorrect overflow. 

P =0443, Divide fault. 
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HALTS EXPLANATION (Cont'd. ) 

7700 P = 1164, "Compute result" error. See error stops as indicated by 
contents of A register. 

7700 P = 1665, Multiply to normalize 28th bit error. 

7701 P = 0233, 0451 and 0610, First word error. 

7702 P = 0241, 0451 and 0613, Second word error. 

7703 P = 0247, 0465 and 0620, Third word error. 

7704 P = 0410, Multiply/ Divide error: remainder t zero. 
7704 P = 0605, Shift count error. 

7777 P = 0775, End of test. 



168-2:2 



ERROR STOPS 



1 
2 
3 



4 
5 
6 
7 
10 
11 



12 
13 

14 



15 
16 
17 



20 
21 
22 



23 
24 
25 
26 
27 
30 



31 
32 
33 



34 
35 
36 



Word No. 



1 
2 
3 



1 
2 
3 
4 
5 
6 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 
4 
5 
6 



1 
2 
3 



1 
2 
3 



Condition 



P - 1164 
Z = 7700 



Add/Add 



Add /Multiply 



Add/ Normalize 



Add/Left Shift 



Subtract/Add 



Subtract / Multiply 



Subtract/ Normalize 



Subtract /Left Shift 
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37 


/ 

1 


i 


40 


2 


Multiply/Add 


41 


3 


' 


42 


i 
1 


i 


43 


2 




44 
45 


3 
4 


Multiply /Multiply 


46 


5 




47 


6 


' 


50 


1 


i 


51 


2 


Multiply/ Normalizf 


52 


3 


i 


53 


1 
1 


i 


54 


2 


Multiply /Left Shift 


55 


3 


i 


56 


/ 
1 


i 


57 


2 


Divide /Add 


60 


3 


/ 


61 


1 


\ 


62 


2 




63 

64 


3 
4 


Divide /Multiply 


65 


5 




66 


6 

\ 


i 


67 


1 


\ 


70 


2 


Divide/ Normalize 


71 


3 


i 


72 


1 


\ 


73 


2 


Divide /Left Shift 


74 


3 


' 


75 


/ 
1 


V 


76 


2 


Right Shift /Add 


77 


3 


i 
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100 
101 
102 
103 
104 
105 



106 
107 
110 



111 
112 
113 



114 
115 
116 



117 
120 
121 



122 
123 
124 



125 
126 

127 



130 
131 
132 



133 
134 
135 



136 
137 
140 



1 
2 
3 
4 
5 
6 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



Right Shift /Multiply 



Right Shift/ Normalize 



Right Shift /Left Shift 



Add /Subtract 



Subtract /Subtract 



Multiply / Subtract 



Divide / Subtract 



Right Shift /Subtract 



Left Shift /Subtract 



Add /Divide 
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141 
142 
143 



144 
145 
146 



147 
150 
151 



152 
153 
154 



155 
156 

157 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



1 
2 
3 



Subtract/ Divide 



Multiply/ Divide 



Divide /Divide 



Right Shift /Divide 



Left Shift /Divide 
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168-2 TEST ROUTINES 



00000 7140 Repeat same test as before 
7l4o Add-subtract only: 10 min. 
7l4o Multiply-divide only: 16 min. 
7140 Shift-normalize only: 30 millisec. 
7l6l All tests, including compute result op.: 34 min. 
0000 
O676 
0000 

00010 7777 HLT: Enter in "A" number of times test is to run 

6004 
4100 
0752 
0400 
4100 
0750 
4100 

00020 0741 
4100 
1005 
4100 
1004 
4100 

1003 

0400 

00030 4100 
1000 

4ioo 

1001 

4ioo 
1002 

6001 
7101 

00040 0100 

0160 
0340 
0260 
0050 
1030 
1031 
1032 

00050 2200 Establish all tests 
0100 
4040 
6001 
6001 
4100 
0706 
2200 
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ooo6o 0300 

4100 

0251 
4ioo 

0142 
2221 
4100 
0732 

OOOJO 0427 
4100 
0770 
2214 
4106 
0400 
6466 
0000 

00100 7500 Add 
3321 

7315 
1006 
7101 
0120 
0500 
0707 

00110 0000 
0000 
0000 
0000 
0000 
0000 
0000 
1000 

00120 7236 
1011 

7500 Status 
3304 
7600 

6053 
1200 

7767 

00130 6003 

7700 Error (status in "A") 
0300 

2122 Check if overflow was legal 

0207 

4077 

2535 

3477 
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00140 



00150 



00160 



6203 

7101 
0700 
6004 
7700 
7101 

0100 

2533 

3524 
6605 
6711 

0000 
0000 
0000 

1006 
0707 

2200 
0100 

4o4o 

4100 

0706 

4100 

0770 

2200 



Overflow error 



Establish Add/Subtract only 



00170 



0700 
42d0 
4330 
231^ 
4l67 
0400 
7101 
0010 



00200 



7500 
3361 

7303 
1011 

7313 
1006 
7101 

0220 



Subtract 



00210 



0000 
0000 
0000 
0000 
0000 
0000 
0000 

1003 
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00300 7500 Multiply 
3301 
7315 
1006 
7101 
0320 
0000 
0000 

00310 0000 
0000 
0000 
0000 
0000 
0000 
0000 
1000 

00320 7211 

1022 

7500 Status 

3304 

7600 

6053 

7700 Error (status in "A") 
7101 

00330 0400 

1014 
0000 
0000 
0000 
0000 
0000 
0000 

00340 2200 Establish MultiDly-Divide only 
0300 
4040 
4100 
0706 
4100 
0770 
2200 

00350 0707 
4100 
0732 
0400 
7101 
2420 
0000 
0000 
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00360 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



00370 



00400 



00410 



00420 



00430 



0000 
0000 
0000 
0000 
0000 
7101 
1700 
0000 

7500 
3300 

7315 
1022 
7312 
1006 
7101 
0420 

7704 
7101 
0700 
0000 
0000 
4000 
1003 
1014 

7225 
1031 
7500 
3304 
7600 
6430 

3711 
6003 

3313 

7700 

2100 

1003 
6107 

2100 

1004 
6104 



Jump to compute result operations 



Divide 



Error (remainder f 0) 



Status 



Error (status in M A") 
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00440 2100 
1005 
61)31 

7700 Divide fault 

2100 Compare answers from multiplication and division 

1022 

3500 

1000 

00450 6002 

7701 1st word error 
2100 

1023 
3500 
1001 
6002 

7702 2nd word error 

00460 2100 
1024 
3500 
1002 
6002 

7703 3rd word error 
2100 

1025 

00470 6560 
2100 
1026 

6563 
2100 

1027 
6566 
6466 

00500 0404 
4100 
1032 
0400 
4l45 
4146 
4203 
0410 

00510 5200 
0000 
3600 
0160 
6103 
7101 
0624 
2306 
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00520 0102 

4200 

0000 
2147 
0207 
3303 
4l47 
7500 Right shift 

00530 3303 
7372 
1033 
7270 

1003 

750O Status 

3304 
7600 

00540 6002 

7700 Error (status in "A") 

2147 

0207 

3333 

4l47 

7500 Left shift 

3302 

00550 7353 
1033 
7251 
1003 

7500 Status 
3304 
7600 
6002 

OO560 7700 Error (status in "A") 
7500 Normalize and count 
3342 
7340 

1033 
7236 
1003 
7500 Status 

00570 3304 
76OO 
6002 

7700 Error (status in "A") 
2325 
3642 
6142 
2147 
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00600 0110 
0111 
1234 
3772 
6002 
7704 Shift count error 

2145 
6002 

006lO 7701 1st word error 
2146 
6002 
7702 2nd word error 

2147 
0207 
0704 
6002 

00620 7703 3rd word error 
7101 
0507 
1030 
2355 Exchange Right and Left shift EXF codes 

4375 
0601 
4360 

OO63O 2200 
066O 
4100 
0516 
7101 
0500 
0370 
3302 

00640 2200 
0330 
3500 
0511 
4210 
2147 
0110 
0111 

OO65O 1312 
3603 
7101 
06o4 
0000 
0000 
0000 
0000 
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00660 2200 Exchange Right and Left EXF codes 
0624 * 

4100 

0516 

2100 
0530 
4100 

0547 
00670 5500 

0530 

0400 

6002 

0000 

7101 
0707 

0000 

00700 2200 Alter 1st operand 
0055 
5100 
1000 
6025 
7101 
0100 
2200 

00710 0055 
5100 
1001 
6506 
0407 
1100 
1002 
0707 

00720 6005 
5500 
1002 
6416 

6517 
o4oo 

4100 
1002 

00730 6010 
7101 
0500 
0000 
0000 
0000 
0000 
0000 
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00740 2200 
0000 
0102 
6013 

4303 
3624 

6112 
5600 

00750 0000 
3600 
0000 
6ll4 
7101 
0775 
2213 
4316 

00760 2317 
4100 

1003 

4100 
1004 
4100 

1005 
7101 

00770 0027 

0715 

0000 
0000 
0000 
7777 
7101 

0011 

01000 0040 
0000 
0000, 
0000 " 
0000 
0000 
0000 = 
0000 

>Sum 

01010 0000 „ 
ooool 

0000 ^Difference 

0000 J 

0000 

0000 1 product 

0000 

0000 



Alter 2nd operand 



Check for end of test 



Number of times test is to repeat 



End of test 



1st operand 



> 2nd operand 
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01020 



01030 



OlOUO 



J 



0000 
0000 
0000 
0000 
0000 
0000 "1 
0000 \> 
0000 J 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



Quotient 



Remainder 



Shift/Normalize and count 



01050 



01060 



01070 



0000 
0000 
0000 
0001 
0000 
0000 
0000 
0000 



0000 

0000 

0000 }> Sum 

0000.. 

0000 

0000 

0000 

0000 



0000 

0000J 
00001 

0000 \, 
0000 J 
0000 
0000 
0000 



Normalized 1st operand 



i> Product 



Normalize and count " 



} 



Left shift 



> Divide 
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01100 0000 
0000 

2200 Check result (loc. 1002-1277) 
1006 Check Add result 
4205 
2200 
1061 
4204 

OHIO 2100 
1006 
3500 
106l 
6oo4 

0101 

7101 
1160 

01120 56U3 

5710 

5707 
3600 
1064 
6515 

2200 Check Multiply result 
1014 

01130 4205 
2200 
1064 
4204 
2100 
1014 
3500 
1064 

01140 6004 
0101 
7101 
1160 
5617 
5710 
5707 
3600 

01150 1072 

6515 
7101 
1200 
0000 
0000 
0000 
0000 
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01160 0603 
4205 
2200 

0001 Error indicator counter 

7700 Error. Check "A" register for type of error 
7101 
0000 
0000 

01170 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

01200 7500 Check Normalize result 
33^2 
7356 
1003 

7255 
1061 
2200 
1056 

01210 4205 
2200 
1072 
4204 
2100 
1056 
3500 
1072 

01220 600k 
0101 
7101 
1160 
57^1 
5710 
5707 
3600 

01230 1075 
6515 

2200 check left shift result 
IO56 

4205 
2200 

1075 
h2Dk 
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01240 



2100 
1056 

3500 

10T5 
6oo4 
0101 
7101 
1160 



01250 



5765 
5710 
5707 
3600 
1100 

6515 
7101 
i44o 



01260 



1000 

1056 

0000 
0000 
0000 
0000 
0000 
0000 



01270 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



01300 



01310 



7500 
3321 

7375 

1003 
7372 
1053 
7101 
1310 

7500 

3335 

7363 
1006 
7260 
1064 
2200 

1330 



Initial operation for a compute result selection 



Add to result 
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01320 4311 
7101 
1300 
1474 
1600 
0000 
0000 
0000 

01330 7500 Multiply result 
3315 
7343 
1006 

7237 
1072 
2200 
13^5 

01340 4331 
7101 
1300 
0000 
0000 

7500 Normalize result 
3356 
7223 

01350 1075 
2200 
1400 
4344 
7101 
1300 
0000 
0000 

01360 0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 

01370 0000 

0000 

1072 

1064 
1061 
1003 
1050 

1000 
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01400 2100 Left shift result 

1074 

1200 
7T00 
0111 
0110 

4317 
7500 

01410 3316 
7326 
1370 
7223 
1100 
2200 
1440 
4100 

01420 1257 
2332 
0110 

^335 
5100 

1077 
2200 
1310 

01430 4100 

1307 
7101 

1102 
0000 
0000 
1075 
1367 

01440 2200 Establish subtract as initial operation 
3361 
4100 
1301 
2200 
1460 
4100 
1416 

01450 7101 
1300 
0000 
0000 
0000 
0000 
0000 
0000 
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01460 2200 Establish multiply as initial operation 
7123 
4100 
1300 
7500 
3301 
7351 
1003 

01470 7346 
1531 
72*6 
1526 
7500 
3301 
7337 
1523 

01500 7334 
1532 
0300 
0300 
2200 
15^0 
4100 

l4i6 

01510 7101 
1306 

0000 
0000 
0000 
0000 
0000 
0000 

01520 0000 

0000 
0000 
0000 
0000 
0000 
0002 
0000 

01530 0000 

0004 
0000 
0000 

1527 
1520 
1526 

1000 
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01540 2200 Establish divide as initial operation 
7500 
4100 
1300 
2200 
3300 
4100 
1301 

01550 0401 
4100 

1053 

2200 
IO56 
4100 
1305 
2200 

01560 1600 
4100 
1416 
7101 
1300 
0000 
0000 
0000 

01570 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

01600 2200 Establish right shift as initial operation 
7124 
4100 
1300 
7500 
3342 
7330 
1003 

01610 7500 
3317 
7325 
1370 
2200 
2000 
4100 
1416 
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01620 2200 

1053 
4100 

1305 
7101 
1306 
0000 
0000 

01630 0000 

0000 
0000 
0000 
0000 
0000 
1000 
1367 

01640 7101 
o444 

0000 
0000 
0000 
0000 
0000 
0000 

01650 7500 
3301 
7316 
1700 
7500 
3356 
7213 
1650 

01660 2100 
1647 



3600 

3304 
6002 

7700 Error (multiply to normalize, 28th bit) 

7101 

1640 



01670 1672 
1645 
0001 
0000 
0000 
0000 
0000 
0004 
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01700 0401 Establish compute result test conditions 
4100 
1163 
2200 

i44o 

4100 

1257 
2200 

01710 7500 
4100 
1300 
2200 
3321 

4100 

1301 
2200 

01720 l44o 
4100 

i4i6 
2200 
1310 

4100 

1307 

2200 

01730 1053 
4100 
1305 
2100 
1002 
0204 
6132 
0300 

01740 2200 
1232 
4100 
2023 
2200 
2300 
4100 
2245 

01750 5622 
3622 
6116 
0400 
4216 
2200 
3321 
4100 
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01760 2001 
2100 
1010 
0214 
6l0k 
7101 
2060 
0000 

01770 7101 
l6ho 
0000 
0100 
0000 
0000 
0000 
0000 

02000 7500 Establish Add as initial operation 

733^ 
1011 

7331 
1053 

7500 Subtract from result 
3375 

02010 7324 
1006 
7500 
3356 
7223 
1100 
2200 
2040 

02020 4100 

1257 
7101 
1232 
0000 
0000 
0000 
0000 

02030 0000 
0000 
0000 
0000 

1003 
1050 
1006 
1075 
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02040 2200 Establish subtract as initial operation 
3361 
4100 
2001 
2200 
2100 
4100 
2017 

02050 7101 
2000 
0000 
0000 
0000 
0000 
0000 
0000 

O2060 2200 Establish initial conditions 
2040 
4100 
2017 
2200 

3375 
4100 

2007 

02070 2200 
2006 
4100 
2127 
5600 
0000 
7101 
1300 

02100 2100 Establish multiply as initial operation 
1010 
0214 

6133 
7500 
3301 

7371 
1011 

02110 7354 
1531 
7263 
2173 
7500 
3301 
7357 
2170 
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02120 735^ 
1532 
2200 
2140 
4100 
2017 
7101 
2000 

02130 0000 
0000 
0000 
0000 
0000 
0000 
7101 
l64o 

02140 7500 Establish divide as initial operation 
3300 

7335 
1011 

7327 
1056 
2200 
2200 

02150 4100 
2017 
7101 
2OO6 
0000 
0000 
0000 
0000 

02160 0000 

0000 
0000 
0000 

1526 

0000 
0000 
0000 

02170 0000 

0000 
0000 

1050 

1527 
2165 
1527 
1006 



168-2:30 



02200 



7500 
3303 
7335 
1011 
2200 
2240 
4100 
2017 



Establish right shift as initial operation 



02210 



7101 
2006 
0000 
0000 
0000 
0000 
0000 
0000 



02220 



02230 



02240 



02250 



0000 
0400 
4100 

2075 
4100 
1772 
2200 

6430 

4100 
0425 
7101 
0050 
0000 
0000 
0000 

1006 

7500 
3302 

7335 
1011 
2200 
2300 

4ioo 
2017 

7101 
2006 

0000 
0000 
0000 
0000 
0000 
0000 



Establish Test #4 conditions 



Establish left shift as initial operation 
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02260 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

022T0 0000 
0000 
0000 
0000 
0000 
0000 
0000 
1006 

02300 2100 Establish divide as 2nd operation 
1003 
6107 
2100 
100*+ 
6104 
2100 
1005 

02310 6026 
2200 
3314 
4100 
2007 
2200 
23^0 
4100 

02320 2023 
2200 
3321 
4100 
2001 
2200 
2040 
4100 

02330 2017 
7101 
2000 
0000 
0000 
0000 
7101 
1640 



168-2:32 



023^0 2100 Check divide result 
2017 
^253 
7500 
3300 
7372 
1011 
7367 

02350 1053 
736^ 
1006 
7500 
3356 
7257 
2336 
2200 

02360 1075 
^205 
2200 

2333 
k20k 
2100 

1075 
3500 

02370 2333 
600k 
0101 

7101 
1160 

5500 
1163 

5711 

02^00 5710 

3600 
2336 
6516 

2200 
1650 
4100 
22^5 

02^10 2200 

2^50 

4100 
2127 
7101 
20^0 
0000 
0000 
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02420 2200 Establish Test #3 conditions 
6017 
4100 
0425 
0400 
7101 
0010 
0000 

02430 0000 
0000 
0000 
0000 
2333 
1003 
1050 
1006 

02440 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

02450 7500 
3316 

7400 

7500 
3315 

7322 
1056 

2200 

02460 2006 
4100 
2127 
7101 
2OO6 
0000 
0000 
0000 

02470 0000 
0000 
0000 
0000 
0000 
0000 
0000 

1053 

02500 6436 Check sum const. 
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NUMBER: T682-2 

TITLE: AU Select Test 

CATEGORY: 160-A, 168-2 

MINIMUM EQUIPMENT NEEDED: 160-A, 168-2 

PURPOSE 

The test checks by selecting another external equipment, whether the 168-2 can 
be interrupted at any point and upon reselection, resume operation without error. 
All of the 168-2 status replies are also checked. 

DESCRIPTION 

Tests all 168-2 functions by intermixing them with paper tape reader codes and 
I/O instructions. Errors are detected by using fixed operands. 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 
STARTING ADDRESS: 



OPERATING INSTRUCTIONS 
Paper Tape 

0000 

1014 

0160 

0000 



ADDITIONAL INSTRUCTIONS: 



HALTS 

7777 
7700 
770X 



1) Turn on the 350 reader. 

2) Set A to the desired number of runs through the 
test. 

3) Position all SLS switches up. 

4) Place a loop of tape in the reader. 

EXPLANATION 

P=1011 End of test. 

Status error. 

X = number of word on which error occurred. 
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168-2 SELECT TEST 



00000 



00010 



00020 



00030 



00040 



00050 



6104 
4020 
7101 
0100 
4021 
0400 
4020 
7101 

0100 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0001 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



Clear Counter 

Store New Count 
Clear Counter 



Counter 
Count 



168-2:36 



00060 



00070 



00100 



00110 



00120 



00130 



0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




7500 




330^ 




7600 




6002 




7700 


Status Error 


7500 




3300 


Select Divide 


7klA 


1st Word 


7 I H 1 J- 


2nd Word 


7^00 


3rd Word 


7^00 


4th Word 


7^00 


5th Word 


7400 


6th Word 


7^02 


7th Word 


7^02 


8th Word 


7^00 


9th Word 


7600 




0706 




6002 




7701 


Error 


7600 




6002 




7702 


Error 


7600 




6002 




7703 


Error 


7600 




6002 




7704 


Error 


7600 




6002 




7705 


Error 
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00140 



00150 



00160 



00170 



00200 



00210 



7600 
6002 
7706 
7500 
3301 
7402 
7402 
7401 

7k06 
7400 
7400 
7600 
0714 
6002 
7701 
7600 

0714 
6002 
7702 
76OO 
0706 
6002 
7703 
7600 

0700 
6002 
7704 
7600 
6002 
7705 
76OO 
6002 

7706 
7500 
3321 
7406 
7406 
7401 
7401 
7401 

7401 
7600 
0707 
6002 
7701 
7600 
0707 
6002 



Error 

Multiply 
1st Word 
2nd Word 
3rd Word 

4th Word 
5th Word 
6th Word 



Error 



Error 



Error 



Error 



Error 



Error 

Add. 

1st Word 
2nd Word 
3rd Word 
4th Word 
5th Word 

6th Word 



Error 
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00220 



00230 



002lf-0 



00250 



00260 



00270 



7702 


Error 


7600 




0702 




6002 




7703 


Error 


7500 




3361 


Subtract 


7406 


1st Word 


7406 


2nd Word 


7 1 )-01 


3rd Word 


7*K)1 


4th Word 


7^01 


5th Word 


7^01 


6th Word 


76OO 




0705 




6002 




7701 


Error 


7600 




0705 




6002 




7702 


Error 


7600 




6002 




7703 


Error 


7500 




3302 


Left Shift 


7hOk 


1st Word 


7JWA 


2nd Word 


Tklh 


3rd Word 


76OO 




0711 




6002 




7701 


Error 


7600 




0710 




6002 




7702 


Error 


7600 




0700 




6002 




7703 


Error 


7500 




3303 


Right Shift 


7^02 


1st Word 


lk02 


2nd Word 


7^12 


3rd Word 


76OO 




0701 
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00300 



00310 



00320 



00330 



00340 



00350 



6002 




7701 


Error 


7600 




0701 




6002 




7702 


Error. 


7600 




0701 




6002 




7703 


Error 


7500 




3300 


Divide 


7500 




4102 


See Reader 


7600 




7500 




3310 


Res elect 


Jklk 


1st Word 


7414 


2nd Word 


7500 




4102 




7600 




7500 




3310 


Reselect 


7400 


3rd Word 


7400 


4th Word 


7400 


5th Word 


7400 


6th Word 


7500 




4102 




7600 




7500 




3310 


Reselect 


7402 


7th Word 


7402 


8th Word 


7400 


9th Word 


7500 




4102 




76OO 




7500 




3310 


Reselect 


76OO 




0706 




6002 




7701 


Error 


7500 




4102 




7600 
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00360 



00370 



00^00 



00U10 



00^20 



00^30 



7500 




3310 


Reselect 


7600 




6002 




7702 


Error 


7600 




6002 




7703 


Error 


7500 




M02 




7600 




7500 




3310 


Reselect 


7600 




6002 




7705 


Error 


7500 




330^ 




7600 




0720 




6002 




7700 


Status Error 


7500 




33io 


Reselect 


7600 




6002 




7706 


Error 


7500 




3301 


Multiply 


7500 




iao2 




7600 




7500 




33io 


Reselect 


7U02 


1st Word 


7^2 


2nd Word 


7U01 


3rd Word 


7500 




1H02 




7600 




7500 




3310 


Reselect 


7U06 


4th Word 


7^00 


5th Word 


7toO 


6th Word 


7500 




330^ 




7600 
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ocMo 07^0 
6002 

7700 Status 

7500 

3310 

7600 

073A 

6002 

00450 7701 Error 

7500 
4102 
7600 
7500 

3310 Reselect 

76OO 
0714 

00460 6002 

7702 Error 

7500 

3304 

76OO 

0720 

6002 

7700 Status Error 

00470 7500 

3310 Reselect 

7600 

0706 

6002 

7003 Error 

76OO 

0700 

00500 6002 

7704 Error Fourth Word 
7500 

4102 

7600 

7500 

3310 Reselect 

76OO 

00510 6002 

7705 Error 5th Word 
76OO 

6002 

7706 Error 6th Word 
7500 

3321 Add 

7500 
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00520 



00530 



00540 



00550 



00560 



00570 



4102 






7600 






7500 






3310 


Reselect 




7406 


1st Word 




7406 


2nd Word 




7500 






4102 






7600 






7500 






3310 


Reselect 




7401 


3rd Word 




7401 


4th Word 




7500 






4102 






7600 






7500 






3310 






7401 


5th Word 




7401 


6th Word 




7500 






3304 






7600 






0720 






6002 






7700 


Status Error 




7500 






3310 






7600 






0707 






6002 






7701 


Error 




7500 






4102 






7600 






7500 






3310 


Reselect 




7600 






0707 






6002 






7702 


Error - 




7600 






0702 






6002 






7703 


Error 




7500 






3361 


Subtract 




7500 
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00600 



00610 



00620 



oo63o 



00640 



00650 



4102 




7600 




7500 




3310 




7406 


1st Word 


7406 


2nd Wor.d 


7401 


3rd Word 


7500 




4102 




7600 




7500 




3310 




7401 


4th Word 


7401 


5th Word 


7401 


6th Word 


7500 




3304 




7600 




0720 




6002 




7700 


Status Error 


75OO 




3310 




7600 




0705 




6002 




7701 


Error 


7600 




0705 




6002 




7702 


Error 


7500 




4102 




7600 




7500 




3310 


Reselect 


7600 




6002 




7703 


Error 


7500 




3302 


Left Shift 


7500 




4102 




7600 




7500 




3310 


Reselect 


7404 


1st Word 


7404 


2nd Word 
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00660 



00670 



00700 



00710 



00720 



00730 



7414 


3rd Word 




7500 






4102 






7600 






7500 






3310 


Reselect 




7600 






0711 






6002 






7701 


Error 




7500 






4102 






7600 






7500 






3310 


Reselect 




7600 






0710 






6002 






7702 


Error 




76OO 






0700 






6002 






7703 


Error 




7500 






3303 






7500 






4102 






7600 






7500 






3310 


Reselect 




7402 


1st Word 




7402 


2nd Word 




7412 


3rd Word 




7500 






4102 






76OO 






7500 






3310 


Reselect 




76OO 






0701 






6002 






7701 


Error 




7500 






4102 






76OO 






7500 






3310 


Reselect 




76OO 
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00740 



00750 



00760 



00770 



01000 



01010 



0701 
6002 
7702 
7500 
4102 
7600 
7500 
3310 

7600 
0701 
6002 
7703 
7500 
3300 
74l4 
74l4 

74l4 
74l4 
74l4 
7404 
7400 
7^00 
7400 
7500 

3304 
7600 
3600 
4040 
6002 
7700 
5420 
2021 

3420 
6005 
7500 
3301 
7101 
0100 
7500 
3300 

0400 

7777 
7101 
0000 
5262 



Error 



Res elect 



Error 



1st Word 
2nd Word 

3rd Word 
4th Word 
5th Word 
6th Word 
7th Word 
8th Word 
9th Word 



Advance Counter 



Compare to Count 



End of Test 
Check Sum 
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NUMBER: T002-B 

TITLE: Memory Test for 169 Memory Unit 

CATEGORY: 160 -A, 169 

MINIMUM EQUIPMENT NEEDED: 160 -A, 169 

PURPOSE 

Tests any arbitrary number of bank, up to the maximum number present in the 160 -A 
computer or a 160 -A, 169 system. 

DESCRIPTION 

The program may be located in any bank. The next bank in sequence will be tested by, 
having the worst pattern stored in it, checking the pattern, then storing and checking the 
compliment worst pattern. The program then transfers itself to the bank which has been 
tested, and the test progresses through the memory. 

The program checks itself, via a checksum subroutine upon starting a new bank, and 
prior to transferring itself to the next bank in sequence. If the checksum is not correct 
an error stop will occur. This condition is indicated by: 

P = 1073 A = bits failing in program Z = 0000 (green background) 

The MCS mode indicator shows which bank the program is in. The program will stop if 
any error occurs while checking worst pattern or its compliment with: 

P = 0101 A = bits failing in worst pattern Z = 7700 (green background) 

If the computer is placed in run again it will stop with: 

P = 0103 A = address failing in worst pattern Z = 7777 (green background) 

The bank being tested will be indicated by the MCS mode indicator when the IND button 
is pressed. 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 



OPERATING INSTRUCTIONS 
Paper Tape INPUT PARAMETERS 



rOOOO 
r0175 



r = Relative bank selected. When starting 
the program it is necessary to set the 
relative bank selection only. 
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CHECKSUM: 



0002 



The direct and indirect bank selections 
are set automatically by the program. 



STARTING ADDRESS: 0000 



ADDITIONAL INSTRUCTIONS: When starting the program the first time after it has 
been loaded from the paper tape, the highest bank number present must be entered in 
the A register. The next time the program is started, the A register may be clear, 
and the highest bank number used previously will be saved. 



HALTS 

0051 7701 

0050 7702 

0045 7704 



EXPLANATION 

Selective Stop 1. The computer will stop every time a new 

pattern is stored in the bank being tested. 

Selective Stop 2. Computer will stop when worst pattern (not 
the compliment pattern) is stored in the bank being tested. 

Selective Stop 4. Computer will stop when worst pattern (not 
the compliment pattern) is stored in bank 1. At this time the 
program is located in bank 0. 

NOTE: Selective stops may be selected in any desired combina- 
tion. 
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T002 B 

MEMORY TEST FOR 160- 



A COMPUTER AND 169 AUXILIARY MEMORY 



0000 


0207 


0001 


6003 


0002 


0601 


0003 


4271 


0004 


7100 


0005 


0143 


0006 


0130 


0007 


0207 


0010 


0601 


0011 


1474 


0012 


6002 


0013 


1474 


0014 


0320 


0015 


4201 


0016 


(0000) 


0017 


0400 


0020 


4076 


0021 


0400 


0022 


4077 


0023 


2076 


0024 


4177 


0025 


5477 


0026 


6011 


0027 


0277 


0030 


6003 


0031 


0207 


0032 


6407 


0033 


2476 


0034 


4076 


0035 


7101 


0036 


0023 


0037 


2476 


0040 


4172 


0041 


6310 


0042 


0130 


0043 


0207 


0044 


6104 


0045 


7704 


0046 


0001 


0047 


0001 


0050 


7702 


0051 


7701 


0052 


0400 


0053 


4077 


0054 


2076 


0055 


1577 



Get Number of Highest Bank 



Enter Check Sum Subroutine 



Set IND to Next Bank in Sequence 



(Locations in parentheses are normally modified by the 
computer during execution of the program) 



Write Pattern in Bank 
Locations 0000 through 7776 



Store Pattern at Location 7777 
Determine Stop Options 



Selective Stop 4 



Selective Stop 2 
Selective Stop 1 



Stop on Full Cycle thru Max. No. of bank 



Stop on Every Bank 
Stop on Every Pattern 
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0056 


6122 


0057 


5477 


0060 


6026 


0061 


0277 


0062 


6003 


0063 


0207 


0064 


6410 


0065 


2476 


0066 


4076 


0067 


7101 


0070 


0054 


0071 


0000 


0072 


7777 


0073 


0170 


0074 


(0000) 


0075 


0176 


0076 


(0000) 


0077 


(0077) 


0100 


2177 


0101 


7700 


0102 


2077 


0103 


7777 


0104 


7101 


0105 


0057 


0106 


2476 


0107 


6567 


0110 


7100 


0111 


0143 


0112 


4077 


0113 


7710 


0114 


0006 


0115 


0130 


0116 


0207 


0117 


0320 


0120 


4212 


0121 


0320 


0122 


0601 


0123 


1474 


0124 


6002 


0125 


1474 


0126 


0320 


0127 


4205 


0130 


0330 


0131 


4210 


0132 


(0000) 


0133 


2177 


0134 


(0000) 


0135 


4177 


0136 


5477 


0137 


1475 


0140 


6506 



Check Pattern 



Constant = 7777 

Check Sum Adjustment 

Highest Bank Number Allowable + 1 

Constant = Number of Words in Program 

Test Word 

Test Address 



Error Stop - Indicate Bits Which Failed 

Stop - Indicate Location of Failure 
Check Next Word 



Repeat Program for Both Patterns 

Enter Check Sum Subroutine 
When Both Patterns are Checked 

Test Selective Jump for Bank Change 



Set Bank Change Instructions 



T ransf er Program to Next Bank 
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0141 


(0000) 


0142 


7101 


0143 


(0000) 


0144 


0130 


0145 


0207 


0146 


0360 


0147 


4201 


0150 


(0000) 


0151 


0400 


0152 


4016 


0153 


4321 


0154 


4320 


0155 


4314 


0156 


4306 


0157 


4300 


0160 


4077 


0161 


2177 


0162 


5300 


0163 


5477 


0164 


1475 


0165 


6504 


0166 


2723 


0167 


3474 


0170 


5300 


0171 


0702 


0172 


6430 


0173 


0000 


0174 


6501 


0175 


6433 



Jump to Next Bank 

Exit Check Sum Subroutine 

Entrance Check Sum Subroutine 



Set All Bank Selections Same as Relative 
Clear All Locations Modified by Program 

Clear Previous Check Sum 

Set Initial Address 

Form Check Sum in Location 07777 



Subtract Exit Address from Check Sum 

Subtract Maximum Bank Number +1 from Check Sum 



Exit if Check Sum is OK 
Check Sum Error 
Hang up on Check Sum Error 
Unless A Register is Cleared 
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NUMBER: T690 

TITLE: Auxiliary Memory Buffer Interrupt Test 

CATEGORY: 169, 160-A 

MINIMUM EQUIPMENT NEEDED: 169, 160-A, 161 

PURPOSE 
This test is used to check the 169 I/O Buffer operation. 

DESCRIPTION 

The test uses the T033 memory worst pattern to check the ability of the memory to 
hold alternate ones and zeros. Checks for a buffer complete interrupt (line 30), and 
reads the buffer entrance register (BER) during the buffer operation. Program and 
output in X odd, pattern in Y even. 

OPERATING INSTRUCTIONS 
LOAD INSTRUCTION: Paper Tape INPUT PARAMETERS (Register Settings, etc.) 

LOADING ADDRESS: 0000 1st portion of program is loaded in bank 0: 

TERMINAL ADDRESS: 0027 Sets U P M initial «>" ditions and bank selections. 

2nd portion is loaded in any odd bank of Module 
CHECK SUMj 2704 X (X = 1, 2, 3). Before running the program, 

enter in "A" register the number of the odd 

bank used. 

STARTING ADDRESS: 0000 

ADDITIONAL INSTRUCTIONS: 1) The 169 is connected to the normal or buffer channel 
of the 160-A with the 161 typewriter connected to the External Buffer Channel. 2) If 
Selective Jump (SLJ1) is used the Output Buffer area will be the same length as the Input 
Buffer area. If SLJ1 is not used the Output Buffer length will be determined by the pro- 
gram and will repeat. 

HALTS EXPLANATION 

SLS1 Computer will stop every time a new pattern is stored in the even bank 

of Module X. 
SLS2 Computer will stop after an Input Buffer has been set up in the 169. 

NOTE: If an interrupt is received by the computer with any of the 
Selective Stops used, the computer will stop. 
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PART 1 



00000 



00010 



00020 



0206 
0361"! 
4201 > 

ooooJ 

0341 
4174\ 
4177/ 
030: 



"3j 



4173. 

1600*1 

4020 > 

4176J 

0310\ 

4175/ 

1600' 

4000 

4210, 

0400*1 

4030 \> 

4067J 

7500\ 

4702/ 

2200*\ 

0200J 



Make bank selection even 
Set DIR and IND to odd bank 

Preset even bank selections 

Preset odd bank selections 

Preset output area bank 
Preset input area bank 

Preset bank jump 

Preset counts to zero 

Master Clear external BFR 
Set bank jump address 



BK 
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Start 
00000 



00010 



00020 



00030 



00040 



00050 



0000 BKX 



4056 

2054 

4057 

2056 

4157 

5457 

6011- 

0277 



6003—1 
0207 J 
6407 
2456 «-J 
4056 
7101 
0003 
2456*— 



4155 
7701 
2054 
4057 
2056 
1557 
7101 
0060 

0200 
7101 
0100 
0207 
6410 
2456 
4056 
7101 



0024 
2456 
7101 
0000 
0010 
7700 
2157 
770 



2057 

7702 

710 

0061 

0000 

7777 

0000 

0000 



} 

;} 



PART 2 

Set initial data 
Set start address 

Finished setting pattern 



Optional stop 



INT 



Error stop 

Non- comparing bits in "A" 

Data in "A" 
Address in "A" 



Starting address 

Data 

Current address 
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00060 



00070 



00100 



00110 



00120 



00130 



6513 
5457 
6421 
0277 
6427 
7101 
0033 
0000 

0000 

0230 

0231 

0111" 

0207 

0213 

0227 

0235 . 

7707 
4067 
7500 
4740 
7600 
1200 
4000 
6102 

7700 
0023 
2070 
0220 
3200 
0130 
4202 
7710 

0000 
7101 
0217 
0000 
0000 
0000 
0000 
0000 

7500 
4704 
7600 
1871 
6044 
1571 
4172 
7101 



Error detection 

to 0035 

"A" Worst pattern INT 
"A" Input or Output INT 

Later change 



-* 002X X = odd bank 
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00140 



0217 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



00150 



7101 
0200 
0000 
0000 
0000 
0000 
0000 
0000 



00160 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



00170 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



00200 



7500 
4701 
7310 
0217 
7702 
4070 
2067 
0022 



-*• ZY Y * even bank 



00210 



0120 
7030 
0213 
4013 
0300 
1423 
4220 
7500 



40 IX X = odd bank 



input 
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00220 



4701 
7305 
0233 
7101 
0233 
0000 
0227 
4003 



400X X = odd bank 



00230 



0300 
1500 
4210 
4070 
2067 
0022 
0120 
7030 



Output 



ZY Y a even bank 
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NUMBER: T170 

TITLE: Punch Test 

CATEGORY: 160 -A 

MINIMUM EQUIPMENT NEEDED: 160 -A 

PURPOSE 
This program checks the punch controller and the control unit. 

DESCRIPTION 

Section 1, checks all status conditions. This is a looping status test in which the 
operator can manually cause a NOT READY to determine if the proper response for a 
specific condition will occur. The manual status errors can be caused by the following: 

1. Depress the stacker full switch 

2. No cards in hopper 

3. 523 power off 

4. M.S. switch in 1604 position 

Section 2, punches all columns of a card with a pattern that can be visually checked. 
The program will punch one card pattern for all cards. The program will continue to 
run until a NOT READY is detected. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 0000 

TERMINAL ADDRESS: 0224 

CHECKSUM: 0170 

STARTING ADDRESS: Sec. 1, P = 0000 A = 0001, Sec. 2, P = 0000 A = 0000 

HALTS EXPLANATION 

7700 Sec. 1 Status Test: When a NOT READY occurs the computer will 

stop and (A) will hold the status response that caused the stop. 

7701 Sec. 2 Status Stop: (A) will contain the status that caused the stop. 

After the error condition has been removed, return the computer to 
"RUN" to continue. 
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Sample card 
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0000 3203 ADF (A) + J 0060 0005 

0000 
0000 
0000 
0000 
0000 

oooo 

0000 

0010 6402 ZJB wait for not ready 0070 0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 

0020 6504 NZB check status again 01 00 0001 Row 9 

6000 
0000 
0000 
0000 
0007 
2520 
0002 Row 8 

0030 0601 ADN 0110 1400 

0000 
0000 
0000 
0070 
5240 

0004 Row 7 
0300 

0040 2055 LDD (D) 0120 0000 

0000 
0000 
0700 
2520 

0010 Row 6 
0060 
0000 

0050 7101 JFI 0130 0000 

0000 

7000 
5240 
0020 Row 5 

0014 
0000 
0000 
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3203 


ADF 


(A) + J 


4201 


STF 


set jump address 


7101 


JFI 


jump address 


7102 




J 


0014 


M.L. 


of punch data 


0006 


M.L. 


of status 


7505 


EXF 


-status S 


7600 


INA 


set (A) = status 


6402 


ZJB 


wait for not ready 


7700 


SLS 


display status 


6504 


NZB 


continue status test 


3040 




S (status) 


7536 


EXF 


status 


7600 


INA 


set (A) = status 


6003 


ZJF 


jump on ready 


7701 


SLS 


display not ready 


6504 


NZB 


check status again 


7532 


EXF 


select punch 


7332 


OUT 


output punch data 


0224 


terminal address 


7526 


EXF 


status 


7600 


INA 


set (A) = status 


6502 


NZB 


wait for ready 


2055 


LDD 


delay count (D) 


0601 


ADN 




6501 


NZB 


delay if (A) = 


2055 


LDD 


(D) 


0601 


ADN 




6501 


NZB 


delay until (A) = 


2055 


LDD 


(D) 


0601 


ADN 




6501 


NZB 


delay until (A) = 


2055 


LDD 


(D) 


0601 


ADN 




6501 


NZB 


delay until (A) = 


2055 


LDD 


(D) 


0601 


ADN 




6501 


NZB 


delay until (A) = 
(CDC) 


2056 


LDD 


5055 


RAD 


decrease delay 


7101 


JFI 




0015 




punch again 


3040 




status code 


3002 




punch code 


0100 


start M.L. of output block 


0000 




(D) 


0100 


constant delay change 


5565 


check sum equalizer 



0140 0007 0220 7000 

0000 0000 

2520 0000 

0040 Row 4 5240 

0003 
0000 
0000 
0070 

01 50 0000 
5240 

0100 Row 3 
0000 
6000 
0000 
0700 
0000 

0160 2520 

0200 Row 2 

0000 

1400 

0000 

7000 

0000 

5240 

0170 0400 Row 1 
0000 
0300 
0007 
0000 
0000 
2520 
1000 Row 

0200 0000 
0060 
0070 
0000 
0000 
5240 

2000 Row 11 
0000 

0210 0014 
0700 
0000 
0000 
2520 

4000 Row 12 
0000 
0003 
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NUMBER: T072 

TITLE: Reader Test (1610) 

CATEGORY: 160-A, 1610 (IBM 533, 521, 088) 

MINIMUM EQUIPMENT NEEDED: 160-A, 1610 (IBM 533, 521, 088) 

PURPOSE 
This test will check the capability of the card reader. 

DESCRIPTION 

1. The test will cause a simultaneous reading from the first and second stations. 

2. The status of the card reader is checked before each reading cycle is initiated. 

3. All information read is compared with a block of known information in storage. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 0000 

TERMINAL ADDRESS: 0066 

CHECK SUM: 6706 

STARTING ADDRESS: 0060 

ADDITIONAL INSTRUCTIONS: 1) Loads the information from two cards into storage. 

2) Start program. 

3) Information following will be -compared with the 
first two cards read in. 



HALTS 

7701 
7702 
7703 
7704 
7705 



EXPLANATION 

Correct information to be compared in A 
Actual information read in A 
First and second card read in stop 
Punch status - not ready 
Reader status - not ready 
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160/160-A READER TEST (IBM 533) 



0000 


7541 


Select input status 


0001 


7600 


Input to A 


0002 


1047 




0003 


6002 




0004 


7705 


Stop if not ready 


0005 


7532 


Select read 


0006 


7232 


Input 


0007 


0450 




0010 


2450 


Load conp of 0224 


0011 


4051 


Store word counter 


0012 


2040 


0100 to A 


0013 


4052 


Store 0100 


0014 


0400 


Load A with 0*s 


0015 


2053 


7100 to A 


0016 


4054 


Store at 0054 


001? 


2152 


Put info at 0100 in A 


0020 


155* 


Logical sum of 0100 and 7100 


0021 


6002 




0022 


6107 




0023 


5452 


Add 1 to new info word 


0024 


5454 


Add 1 to old info word 


0025 


5451 


Add 1 to words compared coun 


0026 


4051 




0027 


6427 


Exit to status check 


0030 


6511 


Exit to compare next word 


0031 


2154 




0032 


7701 


Stop - Old info in A 


0033 


2152 




0034 


7702 


Stop - New info in A 


0035 


0401 


Load A with 1 


0036 


6536 


Exit to status check 


0037 


0303 


Read 1st and 2nd select code 


0040 


0200 


Start Store 


0041 


0340 


Status select code 


0042 


0000 




0043 


0000 




0044 


0000 




0045 
0046 


0000 
0000 




0047 


0021 
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0050 


0250 


Number words to be compared 


0051 


0000 


Counter for words compared 


0052 


0000 


New info add 


0053 


7100 


Old info start address 


005* 


0000 


Old info addres* 


0055 


0000 




0056 


0000 




0057 


0000 




0060 


7506 


Select Input 


0061 


720* 


Input 


0062 


7350 




0063 


7703 


Stop 


0064 


6564 


Exit to status cheek 


0065 


7100 




0066 


0303 


Read 1st and 2nd select eodi 



NOTE: When running this program in the 160-A all stop switches must be up, 

1610:3 



NUMBER: T072 

TITLE: Punch Test (1610) 

CATEGORY: 160-A, 1610, (IBM 533, 521, 088) 

MINIMUM EQUIPMENT NEEDED: 160-A* 1610, (IBM 533 or 521 or 088) 

PURPOSE 
This test will check the capability of the punch. 

DESCRIPTION 

1. This test will cause the punch to pattern the information contained within the 
block of address from 7100 through 7223. 

2. After punching the card information may be verified by the Card Test. 

OPERATING INSTRUCTIONS 
LOAD INSTRUCTION: Paper Tape 
LOADING ADDRESS: 0100 
TERMINAL ADDRESS 0114 
CHECK SUM: 6706 

STARTING ADDRESS: 0100 
ADDITIONAL INSTRUCTIONS: All stop and jump switches must be up. 

HALT EXPLANATION 

7704 Punch status - not ready. 
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160/160-A PUNCH TEST (IBM 533) 



0100 


751^ 


Select output status 


0101 


7600 


Input status to A 


0102 


1211 




0103 


6002 




0104 


7704 


Stop if punch not ready 


0105 


7505 


Select punch 


0106 


7303 


Output 


0107 


7224 




0110 


6510 


Exit to status check 


0111 


7100 


Starting address 


0112 


3002 


Punch select 


0113 


2200 




0114 


3040 


Punch status 
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NUMBER: T1610 

TITLE: 1610 Two Station Read Test 

CATEGORY: 160-A 

MINIMUM EQUIPMENT NEEDED: 160-A 

PURPOSE 

A test of the card reader to insure that it will read a constant pattern simultaneously 
at two read stations. 

DESCRIPTION 

The program reads two read stations, and will compare information with the known 
pattern loaded at address 7100 through 7347. The loaded information Will fee used to 
check all subsequent information. 

Information is stored at address 0200 through 0447. 

The program may be modified to read and check only one station as follows: 



LOAD INSTRUCTION: 
LOADING ADDRESS: 
TERMINAL ADDRESS: 
CHECK SUM: 
STARTING ADDRESS: 
">i. "". iONAL INSTRUCTIONS: 1. 



0007 




0324 


0037 




0301 for read A 




or 


0302 for read B 


0050 




0124 


0062 




7224 


0066 


or 


0301 for read A 

0302 for read B 


OPERATING INSTRUCTIONS 


Paper Tape 






0000 






0066 






2574 






0060 







Manual scan the pattern to verify that program 
information agrees with the card information. 
Reset Run switch. 
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HALTS EXPLANATION 

7701 Error, correct information in A 

7702 New information in A 

7703 Reading known pattern and storing between 7100 and 7347 

Reset Run switch 
7705 Status in A 

NOTE: In case of an error stop, 0052 will contain the 
address of the information which failed. 
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Check 


Reader 


0000 


751*1 


0001 


7600 


0002 


6151* 


0003 


7531* 


OOOl* 


6lOl* 


0005 


7233 


0006 


ol*5o 


0007 


6507 


0010 


2lf50 


0011 


1*051 


0012 


201*0 


0013 


1*052 


ooil* 


01*00 


0015 


2053 


0016 


1*051* 


0017 


2152 


0020 


1551* 


0021 


6002 


0022 


6107 


0023 


51*52 


0021* 


Sk% 


0025 


51*51 


0026 


1*051 


0027 


61*22 


0030 


6511 


0031 


2151* 


0032 


7701 


0033 


2152 


0031* 


7702 


0035 


01*01 


0036 


6ll*2 


0037 


0303 


qpliO 


0200 


00I41 


031*0 


00lt2 


0000 


00l*3 


0000 


ooiii 


0000 


ooi*5 


0000 


001*6 


0000 


00l*7 


0021 


0050 


0250 


0051 


0000 


0052 


0000 


0053 


7100 


0051* 


0000 


0055 


0000 


0056 


7707 


0057 


6121 



0060 


7506 


0061 


7201* 


0062 


7350 


0063 


7703 


0061* 


6111* 


0065 


7100 


0066 


0303 


0067 




thru 


0000 


0077 




0100 


7500 


0101 


0303 


0102 


7203 


0103 


01*50 


0101* 


7102 


0105 


0200 


0106 


0000 
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NUMBER: TO 7 3 

TITLE: 1612 Printer Test Routines 

CATEGORY: 160 -A, 1612 

MINIMUM EQUIPMENT NEEDED: 160-A, 1612 

PURPOSE 

These routines are designed to test the 1612 line printer under a variety of conditions. 

OPERATING INSTRUCTIONS 

LOAD INSTRUCTION: Paper Tape 

LOADING ADDRESS: 0000 

TERMINAL ADDRESS: 0534 

CHECKSUM: 1612 

STARTING ADDRESS: 0000 

ADDITIONAL INSTRUCTIONS: Using one of the routine numbers listed below, an 
entry is made in the A register. If a number is not entered in A the routine will come 
to a halt. The desired number can then be entered and the program will proceed. 

DESCRIPTION 
The test routines are listed by numbers as follows: 

1. 48 CHARACTER DIAGONAL 

This routine uses the first 48 characters of the print wheels. The characters on any 
one line are in bioctal order. Each character in a column is advanced by one from the 
corresponding character in the preceding line. 

2. 64 CHARACTER DIAGONAL 

Thio routine is the same as above, except that all 64 characters of each print wheel 
are used. 

3. FULL PAGE EACH CHARACTER 

This routine prints a full page of each character, in bioctal order. 

4. CONTINUE CURRENT CHARACTER 

If this routine is selected after Routine 3 has been run, the printer will continue printing 
the character Routine 3 was printing until manually stopped. 
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DESCRIPTION (Cont'd) 

5. PRINT CHARACTER FROM A 

This routine stops, with a cleared accumulator (A register), immediately after 
starting. A bioctal entry is made in "A", and the routine prints the equivalent of 
that character. 

6. SMEAR TEST 

This routine prints alternate rows of colons and zeros. 

7. ALTERNATE COLUMNS 

This routine prints ten rows of alternate blanks and M's, reversing the M's and blanks 
every ten rows. 

10. MAXIMUM PAPER SPEED TEST 

In this routine, the paper is advanced at the maximum speed for a page, and a row 
of G's is printed. 

11. VARYING PAPER SPEED TEST 

In this routine, four rows of a character from the first 48 characters on the print 
wheel are printed, then one row of a character from the last 16 characters on the 
print wheel is printed. 

12. CHARACTERS IN ORDER 

In this routine, a complete row of each character is printed. The columns progress 
in bioctal order. 
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0000 


7101 


0001 


0101 


0002 


0400 


0003 


4070 


0004 


2025 


0005 


4071 


0006 


2070 


0007 


4171 


0010 


5471 


0011 


1426 


0012 


6504 


0013 


7516 


0014 


7600 


0015 


6602 


0016 


7307 


0017 


7170 


0020 


7512 


0021 


5470 


0022 


0277 


0023 


6517 


0024 


6422 


0025 


7000 


0026 


7170 


0027 


7360 


0030 


0434 


0031 


0600 


0032 


0605 


0100 


7700 


0101 


6401 


0102 


3215 


0103 


4201 


0104 


7100 


0105 


0120 


0106 


0171 


0107 


0175 


0110 


0221 


0111 


0234 


0112 


0250 


0113 


0310 


0114 


0353 


0115 


0376 


0116 


0002 


0117 


7100 



za 



:a 



jb 



:c 



zl 



con 
jfi 

ldn 
std 
ldd 
std 
ldd 
sti 

aod 
lsd 
nzb 
exf 
ina 
pjb 
out 



exf 
aod 
lpn 
nzb 
zjb 



zb 



prg 



zjb 
adf 
stf 
jfi 



z2 



jfi 



00 

01 

zb 

00 

temO 

zl 

teml 

temO 

teml 

teml 
zl 

jb 
zl 
00 
jc 
zl 
7170 

zl 

temO 

77 

ja 

ja 

7000 

7170 

7360 

ya 

600 
605 
100 

7700 
zb 

z2 
zb 
00 
aa 
ba 
ca 

ce 
da 
ea 
fa 

ga 
ha 

ja 
00 



1 
4 



jump out of constants page 
characters in order 

load buffer 



see if printer is free 
print line 



recycle 
constants 



stop for insertion into a 



1 48 character diagonal 

2 60 character diagonal 

3 full page each character 

4 continue current character 

5 print character from a 

6 smear test 

7 alternate columns 

10 maximum paper speed test 

11 varying paper speed 

12 characters in order 



1612:3 



0120 


2245 


aa 


ldf 


al 




0121 


4073 




std 


tem3 




0122 


2025 




ldd 


zl 




0123 


4070 




std 


temO 




0124 


2030 


ab 


ldd 


zl 


3 


0125 


4071 




std 


teml 




0126 


2171 




ldi 


teml 




0127 


4170 




sti 


temO 




0130 


5471 




aod 


teml 




0131 


1473 




lsd 


tem3 




0132 


6102 




nzf 


ac 




0133 


6407 




zjb 


ab 




0134 


5470 


ac 


aod 


temO 




0135 


1427 




lsd 


zl 


2 


0136 


6510 




nzb 


ab 


2 


0137 


2025 




ldd 


zl 




0140 


4226 




stf 


al 


1 


0141 


2026 




ldd 


zl 


1 


0142 


4205 




stf 


ae 




0143 


7524 


ad 


exf 


al 


2 


0144 


7600 




ina 






0145 


6602 




PJb 


ad 




0146 


7320 




out 


al 


1 


0147 


0000 


ae 








0150 


7520 




exf 


al 


3 


0151 


5702 




aob 


ae 




0152 


5614 




aof 


al 


1 


0153 


1426 




lsd 


zl 


1 


0154 


6511 




nzb 


ad 




0155 


2030 




ldd 


zl 


3 


0156 


3473 




sbd 


tem3 




0157 


0601 




adn 


01 




0160 


4077 




std 


tem7 




0161 


5312 




rab 


ae 




0162 


2077 




ldd 


tem7 




0163 


5203 




raf 


al 


1 


0164 


6521 




nzb 


ad 




0165 


0515 


al 




ya 


61 


0166 


0000 










0167 


0600 






600 




0170 


0605 






605 




0171 


2203 


ba 


ldf 


ba 


3 


0172 


7101 




jfi 


01 




0173 


0121 






aa 


1 


0174 


0535 






ya 


101 


0175 


2030 


ca 


ldd 


zl 


3 


0176 


4077 




std 


tem7 




0177 


2025 




ldd 


zl 





48 character diagonal 
set addresses 



store character 



advance buffer address 



output 

end address 

print 



reset addresses 



beginning address 



60 character diagonal 



full page each character 
set up 



1612:4 



0200 


4071 




std 


teml 


0201 


2177 


cb 


ldi 


tem7 


0202 


4171 




sti 


teml 


0203 


5471 




aod 


teml 


0204 


1426 




lsd 


zl 


0205 


6504 




nzb 


cb 


0206 


0574 




lcn 


74 


0207 


4074 




std 


tem4 


0210 


7520 


cc 


exf 


cl 


0211 


7600 




ina 




0212 


6602 




PJb 


cc 


0213 


7320 




out 


cl 


0214 


7170 






7170 


0215 


7515 




exf 


cl 


0216 


5474 




aod 


tem4 


0217 


6707 




njb 


cc 


0220 


6003 




zjf 


cd 


0221 


0420 


ce 


ldn 


20 


0222 


6513 




nzb 


cc 


0223 


7506 


cd 


exf 


cl 


0224 


5477 




aod 


tem7 


0225 


1262 




lpf 


el 


0226 


6527 




nzb 


ca 


0227 


6432 




zjb 


ca 


0230 


0600 


cl 




600 


0231 


0604 






604 


0232 


0605 






605 


0233 


7000 






7000 


0234 


0400 


da 


ldn 


00 


0235 


7700 




77 


00 


0236 


4070 




std 


temO 


0237 


2025 




ldd 


zl 


0240 


4071 




std 


teml 


0241 


2070 


db 


ldd 


temO 


0242 


4171 




sti 


teml 


0243 


5471 




aod 


teml 


0244 


1426 




lsd 


zl 


0245 


6504 




nzb 


db 


0246 


7101 




jfi 


01 


0247 


0221 






ce 


0250 


2025 


ea 


ldd 


zl 


0251 


4070 




std 


temO 


0252 


0400 


eb 


ldn 


00 


0253 


4170 




sti 


temO 


0254 


5470 




aod 


temO 


0255 


1426 




lsd 


zl 


0256 


6504 




nzb 


eb 


0257 


0412 


ec 


ldn 


12 



load buffer 



set counter 

see if printer is ready 

output 

print 

recycle 

space paper 



6 
2 



print character from a 
stop for character 



smear test 

load first buffer 

load second buffer 
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0260 


4170 




sti 


temO 




0261 


5470 




aod 


temO 




0262 


1427 




lsd 


zl 


2 


0263 


6504 




nzb 


ec 




0264 


7515 


ed 


exf 


el 




0265 


7600 




ina 






0266 


6602 




pjb 


ed 




0267 


7316 




out 


el 


4 


0270 


7170 






7170 




0271 


7512 




exf 


el 


2 


0272 


7507 


ee 


exf 


el 




0273 


7600 




ina 






0274 


6702 




njb 


ee 




0275 


7311 




out 


el 


5 


0276 


7360 






7360 




0277 


7504 




exf 


el 


2 


0300 


6514 




nzb 


ed 




0301 


0600 


el 




600 




0302 


0604 






604 




0303 


0605 






605 




0304 


0601 






601 




0305 


7000 






7000 




0306 


7170 






7170 




0307 


0534 






ya 


If 


0310 


2025 


fa 


ldd 


zl 




0311 


4070 




std 


temO 




0312 


0420 


fb 


ldn 


20 




0303 


4170 




sti 


temO 




0314 


5470 




aod 


temO 




0315 


0444 




ldn 


44 




0316 


4170 




sti 


temO 




0317 


5470 




aod 


temO 




0320 


1426 




lsd 


zl 


1 


0321 


6507 




nzb 


fb 




0322 


0512 




lcn 


12 




0323 


4071 




std 


teml 




0324 


7523 


fd 


exf 


fl 




0325 


7600 




ina 






0326 


6602 




PJ*> 


fd 




0327 


7322 




out 


fl 


2 


0330 


7170 






7170 




0331 


7517 




exf 


fl 


1 


0332 


5471 




aod 


teml 




0333 


6507 




nzb 


fd 




0334 


0512 




lcn 


12 




0335 


4071 




std 


teml 




0336 


7511 


fe 


exf 


fl 




0337 


7600 




ina 







continue if printer is free 
output 



print first line 



continue if printer is free 



alternate columns 
fill buffer 



advance address 

continue when buffer is full 

set counter 

see if printer is free 

output 

print 

continue after 10 lines 

reset counter 

see if printer is free 



1612:6 



0340 


6702 


0341 


7311 


0342 


7171 


0343 


7505 


0344 


5471 


0345 


6507 


0346 


6424 


0347 


0600 


0350 


0605 


0351 


7000 


0352 


7001 


0353 


2025 


0354 


4071 


0355 


0467 


0356 


4171 


0357 


5471 


0360 


1426 


0361 


6504 


0362 


7510 


0363 


7600 


0364 


6602 


0365 


7310 


0366 


7170 


0367 


7504 


0370 


7504 


0371 


6507 


0372 


0600 


0373 


0604 


0374 


0605 


0375 


7000 


0376 


2025 


0377 


4070 


0400 


0405 


0401 


4170 


0402 


5470 


0403 


1426 


0404 


6504 


0405 


0435 


0406 


4170 


0407 


5470 


0410 


1427 


0411 


6504 


0412 


0504 


0413 


4077 


0414 


7514 


0415 


7600 


0416 


6602 


0417 


7313 



njb 
out 

exf 

aod 
nzb 
zjb 



fl 



ga 



gb 



gc 



gl 



ha 



hb 



he 



hd 



ldd 
std 
Idn 
sti 
aod 

lsd 
nzb 
exf 
ina 
pjb 
out 

exf 

exf 

nzb 



ldd 
std 

ldn 
sti 
aod 
lsd 
nzb 
ldn 
sti 
aod 

lsd 
nzb 
len 
std 
exf 
ina 
pjb 
out 



fe 




fl 


3 


7171 




fl 


1 


teml 




fe 




fd 




600 




605 




7000 




7001 




zl 




teml 




67 




teml 




teml 




zl 


1 


gb 
gl 




g<? 
gl 
7170 


3 


gl 


1 


gl 


2 


gc 
600 




604 




605 




7000 




zl 




temO 




05 




temO 




temO 




zl 


1 


hb 




35 




temO 




temO 




zl 


2 


he 




04 




tem7 




hi 




hd 


2 


hi 


2 



output 

print 

continue after 10 lines 



maximum paper speed test 
load buffer 



see if printer is free 

output 

advance paper 

print 
recycle 



varying paper speed 

load first buffer 

continue when buffer is full 

load second buffer 

continue when buffer is full 

set counter 

see if printer is fret 

output 
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0U20 


7170 




7170 






01+21 


7510 


exf 


hi 


1 


print 


0^22 


5U77 


aod 


tem7 






0U23 


6707 


njb 


hd 


2 


continue after k lines 


01+21+ 


7307 


out 


hi 


3 




0^25 


7360 




7360 




output 


Oi+26 


7503 


exf 


hi 


1 


print 


0U27 


6515 


nzb 


hd 




recycle 


0U30 


0600 hi 




600 






0^31 


0605 




605 






01+32 


7000 




7000 






0^33 


7170 




7170 






0U3I+ 


0012 ya 




12 






0^35 


0001 




1 






OU36 


0002 




2 






0^37 


0003 




3 






O^i+O 


000U 




h 






(Ml 


0005 




5 






04U2 


0006 




6 






0UU3 


0007 




7 






ohkh 


0010 




10 






0U1+5 


0011 




11 






ohk6 


0061 




61 






ckh'j 


0062 




62 






oi+50 


0063 




63 






0U51 


006U 




6U 






0U52 


OO65 




65 






0U53 


0066 




66 






ok3k 


OO67 




61 






0U55 


0070 




10 






0^56 


0071 




71 






0457 


00^1 




ki 






0U60 


00i+2 




k2 






0U61 


O0U3 




^ 






0462 


004U 




kh 






0J+63 


00U5 




U5 






QkGk 


00U6 




k6 






0U65 


00U7 




hi 






ok66 


0050 




50 






0U67 


0051 




51 






0U70 


0022 




22 






0U71 


0023 




23 






01+72 


002U 




2k 






0U73 


0025 




25 






0U7U 


0026 




26 






0U75 


0027 




27 






0*176 


0030 




30 






0U77 


0031 




31 







1612:8 



73 
i+o 
6o 
13 
3^ 
7^ 
21 

r A 

33 
lU 
53 

00 
20 
15 
75 
72 

57 
37 
52 
76 

35 

55 
,.<■ 
5o 

36 

16 

17 
05;J2 or/12 32 

0533 0077 77 



0500 


0073 


0501 


00U0 


0502 


0060 


0503 


0013 


050U 


003U 


0505 


007^ 


0506 


0021 


0507 


005U 


0510 


0033 


0511 


001U 


0512 


0053 


0513 


0000 


051U 


0020 


0515 


0015 


0516 


0075 


0517 


0072 


0520 


0057 


0521 


0037 


0522 


0052 


0523 


0076 


052U 


0035 


0525 


0055 


0526 


0056 


0527 


0036 


0530 


0016 


0531 


0017 
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CONTROL DATA 



COR PO RATI ON 



501 PARK AVENUE, MINNEAPOLIS 15, MINNESOTA • FEDERAL 9-0411 




